Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“练习DataSet.CustomTemp”中。您可以根据需要移动或删除它。
        Me.CustomTempTableAdapter.Fill(Me.练习DataSet.CustomTemp)
    End Sub
    Private Sub insertdate()
        Dim strSQL As String = "select * from 员工表）"
        Dim coonstring As String = "Data Source=SWPDM\SWPDM;Initial Catalog=练习;User ID=sa;Password=521500..Zz"
        Dim adapt As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(strSQL, coonstring)
        Dim customDS As New DataSet()
        Dim cmdbuild As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adapt)
        adapt.Fill(customDS, "员工表")
        Dim row As DataRow = customDS.Tables(0).NewRow
        row("id") = 1
        row("名称") = 2
        row("规格") = 3
        row("材料") = 4
        customDS.Tables("员工表").Rows.Add(row)
        adapt.Update(customDS, "员工表")
        MsgBox("tianjiawanc")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        insertdate()
    End Sub
End Class

Dim strSQL As String = "select * from 员工表"