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