在VB中顯示查詢的數據庫，可以使用ADO.NET技術來連接數據庫并執行查詢操作。以下是一個簡單的示例：

1. 首先，添加一個ADODB的引用。在VB的項目中，點擊"項目"->“添加引用”，然后選擇"COM"選項卡，找到并勾選"Microsoft ActiveX Data Objects x.x Library"，點擊確定。

2. 在代碼中創建連接對象和命令對象，并執行查詢操作。示例代碼如下：

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）來顯示查詢結果。通過循環遍歷結果集并讀取字段值，將其逐行添加到文本框中。

這只是一個簡單的示例，實際使用時可能需要更復雜的代碼來處理錯誤、處理更復雜的查詢邏輯等。