vb中如何显示查询的数据库

在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查询语句，并创建数据库命令对象。接下来打开数据库连接，执行查询，并返回结果集。通过循环读取结果集中的每一行数据，并将字段值显示在界面上。最后关闭结果集和数据库连接。

需要根据实际情况修改示例中的服务器地址、数据库名、用户名、密码、表名和字段名。