datarow
Dim myconn1 As OleDbConnection = New OleDbConnection(strcon)
myconn1.Open()
Dim da As OleDbDataAdapter = New OleDbDataAdapter("select * from login", myconn1)
Dim ds As DataSet = New DataSet
Dim objcb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
Dim table1 As DataTable = New DataTable
da.Fill(ds, "login")
table1 = ds.Tables("login")
Dim objrow As Data.DataRow
objrow = table1.NewRow
objrow("user") = TextBox1.Text.Trim
objrow("name") = TextBox2.Text.Trim
objrow("pwd") = TextBox3.Text.Trim
objrow("jb") = TextBox4.Text.Trim
table1.Rows.Add(objrow)
da.Update(ds, "login")