在VB中显示查询的数据库，可以使用ADO.NET技术来连接数据库并执行查询操作。以下是一个简单的示例：
首先，添加一个ADODB的引用。在VB的项目中，点击"项目"->“添加引用”，然后选择"COM"选项卡，找到并勾选"Microsoft ActiveX Data Objects x.x Library"，点击确定。
在代码中创建连接对象和命令对象，并执行查询操作。示例代码如下：
Imports ADODB
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim conn As New Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名;User ID=用户名;Password=密码"
conn.Open()
Dim cmd As New Command
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM 表名"
Dim rs As Recordset
rs = cmd.Execute()
' 循环遍历结果集，并在控件中显示数据
While Not rs.EOF
TextBox1.Text += rs.Fields("字段名").Value.ToString() + Environment.NewLine
rs.MoveNext()
End While
rs.Close()
conn.Close()
End Sub
End Class
上述代码中，替换以下内容为实际的数据库连接信息：
服务器地址：数据库服务器的地址
数据库名：要查询的数据库名
用户名：连接数据库的用户名
密码：连接数据库的密码
表名：要查询的表名
字段名：要显示的字段名
在上述示例中，我们使用了一个文本框（TextBox1）来显示查询结果。通过循环遍历结果集并读取字段值，将其逐行添加到文本框中。
这只是一个简单的示例，实际使用时可能需要更复杂的代码来处理错误、处理更复杂的查询逻辑等。
