将SQL Server表中的数据插入到datagrid vb2003中

Imports System.Data.SqlClient

Public Class Form1
    Inherits System.Windows.Forms.Form

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

        ' 创建一个DataAdapter对象
        Dim adapter As New SqlDataAdapter()

        ' 创建一个DataSet对象
        Dim dataSet As New DataSet()

        Try
            ' 执行SQL查询
            Dim sql As String = "SELECT * FROM 表名"
            adapter.SelectCommand = New SqlCommand(sql, connection)

            ' 填充数据到DataSet中
            adapter.Fill(dataSet)

            ' 将DataSet中的数据绑定到DataGrid控件上
            DataGrid1.DataSource = dataSet.Tables(0)
            DataGrid1.DataBind()
        Catch ex As Exception
            ' 处理异常
            MessageBox.Show("发生错误：" & ex.Message)
        Finally
            ' 关闭数据库连接
            connection.Close()
        End Try
    End Sub
End Class