Form3.Show()
Dim myconn As New OleDb.OleDbConnection
Dim mycommand As New OleDb.OleDbCommand
myconn.ConnectionString = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=C:\Users\Administrator\Documents\账号密码.accdb "
myconn.Open()
Dim sql5 As String = "delete from 表3 where userid=" & (TextBox1.Text) & "'"
Dim zz As New OleDb.OleDbCommand(sql5, myconn)
Dim xx As New DataSet
Dim sql3 As String = "update 表2 set Balance=Balance-2 where UserID=" & (TextBox1.Text) & "'"
Dim qq As New OleDb.OleDbCommand(sql3, myconn)
Dim ww As New DataSet
小弟只能写到这剩下的不知从何下手，求大神赐教最好是能在源码上改改。
------解决思路----------------------
这个要结合你的数据库表结构、配置和你要做什么决定。
你最好问问你的同事，手把手教你下就会了。
------解决思路----------------------
更新例子
string ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source=test.mdb";
OleDbConnection con = new OleDbConnection(ConStr);
con.Open();
int id =Convert.ToInt16(textBox3.Text);
string sql = "update [dataconfig] set [" + textBox4.Text + "]='" + textBox2.Text + "' where [ID]=" + id ;
OleDbCommand cmd = new OleDbCommand(sql, con);
cmd.ExecuteNonQuery();
con.Close();