在VB中，可以使用ADO.NET來查詢數據庫并顯示結果。以下是一個簡單的示例：

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '數據庫連接字符串
        Dim connStr As String = "Data Source=服務器地址;Initial Catalog=數據庫名;User ID=用戶名;Password=密碼"

        '創建數據庫連接對象
        Using conn As New SqlConnection(connStr)
            '創建SQL查詢語句
            Dim sql As String = "SELECT * FROM 表名"

            '創建數據庫命令對象
            Using cmd As New SqlCommand(sql, conn)
                '打開數據庫連接
                conn.Open()

                '執行查詢，并返回結果集
                Dim reader As SqlDataReader = cmd.ExecuteReader()

                '循環讀取結果集中的每一行數據
                While reader.Read()
                    '根據字段名稱獲取字段值
                    Dim value As String = reader("字段名").ToString()

                    '將字段值顯示在界面上
                    MessageBox.Show(value)
                End While

                '關閉結果集
                reader.Close()
            End Using

            '關閉數據庫連接
            conn.Close()
        End Using
    End Sub
End Class

在上面的示例中，首先創建數據庫連接對象，并指定數據庫連接字符串。然后創建SQL查詢語句，并創建數據庫命令對象。接下來打開數據庫連接，執行查詢，并返回結果集。通過循環讀取結果集中的每一行數據，并將字段值顯示在界面上。最后關閉結果集和數據庫連接。

需要根據實際情況修改示例中的服務器地址、數據庫名、用戶名、密碼、表名和字段名。