在Visual Basic（VB）中，可以使用ActiveX Data Objects （ADO） 组件来连接和操作数据库，并将查询结果输出到文件或显示在界面上。以下是一个简单的VB程序示例，展示了如何使用ADO组件连接到Access数据库，查询数据，并将结果导出到文本文件。
步骤1：创建数据库连接
首先，需要创建一个数据库连接。这可以通过使用ADO的`Connection`对象来实现。以下代码示例展示了如何连接到Access数据库：
```vb
Dim cn As New ADODB.Connection
cn.ConnectionTimeout = 30
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=C:\mydata.mdb；User Id=admin；Password=；"
```
步骤2：查询数据库数据
接下来，使用SQL语句查询数据库中的数据，并将结果保存到`Recordset`对象中。以下代码示例展示了如何执行查询操作：
```vb
Dim rs As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM mytable"
rs.Open strSQL, cn
```
步骤3：将数据导出到文件
在将数据导出到文件之前，需要先创建一个文件，并使用`FileSystemObject`对象来创建一个新的文本文件。以下代码示例展示了如何创建文件并将记录集的内容写入文件：
```vb
Dim fs As Object
Dim f As TextStream
Set fs = CreateObject（"Scripting.FileSystemObject"）
Set f = fs.CreateTextFile（"C:\output.txt", True）
Dim rsRow As ADODB.Field
For Each rsRow In rs.Fields
f.WriteLine rsRow.Name & "=" & rsRow.Value
Next rsRow
rs.Close
f.Close
```
完整示例代码
将上述代码片段组合在一起，形成一个完整的VB程序示例：
```vb
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim fs As Object
Dim f As TextStream
' 创建数据库连接
cn.ConnectionTimeout = 30
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=C:\mydata.mdb；User Id=admin；Password=；"
' 查询数据库数据
strSQL = "SELECT * FROM mytable"
rs.Open strSQL, cn
' 将数据导出到文件
Set fs = CreateObject（"Scripting.FileSystemObject"）
Set f = fs.CreateTextFile（"C:\output.txt", True）
For Each rsRow In rs.Fields
f.WriteLine rsRow.Name & "=" & rsRow.Value
Next rsRow
rs.Close
f.Close
' 释放对象
Set fs = Nothing
Set f = Nothing
Set rs = Nothing
Set cn = Nothing
```
建议
错误处理：
在实际应用中，建议添加适当的错误处理代码，以便在连接数据库或执行查询时捕获和处理可能出现的错误。
资源管理：
确保在程序结束时释放所有创建的对象，以避免资源泄漏。
数据库兼容性：
如果需要连接到其他类型的数据库（如SQL Server），需要修改连接字符串以适应不同的数据库类型。
通过以上步骤和代码示例，你可以在VB中实现数据库的连接、数据查询和结果输出。