在vb.net中显示SQL结果

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 建立数据库连接
        Dim connectionString As String = "Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码"
        Dim connection As New SqlConnection(connectionString)

        ' 创建SQL查询语句
        Dim sqlQuery As String = "SELECT * FROM 表名"

        ' 创建命令对象
        Dim command As New SqlCommand(sqlQuery, connection)

        Try
            ' 打开数据库连接
            connection.Open()

            ' 执行查询，并返回结果集
            Dim reader As SqlDataReader = command.ExecuteReader()

            ' 读取查询结果
            While reader.Read()
                ' 获取每个字段的值
                Dim field1 As String = reader.GetString(0)
                Dim field2 As Integer = reader.GetInt32(1)
                ' ...

                ' 在界面上显示查询结果
                DataGridView1.Rows.Add(field1, field2)
            End While

            ' 关闭结果集和数据库连接
            reader.Close()
            connection.Close()
        Catch ex As Exception
            ' 处理异常
            MessageBox.Show("发生错误：" & ex.Message)
        End Try
    End Sub
End Class