TextBox2.Text = ""
TextBox2.Focus()
Form3.Show()
Dim zengjia As String
zengjia = "insert into 表3(userid,userName,balance) select userid,username,balance from 表2 where userid='" & (TextBox1.Text) & "'"
我只能写到这里了sql语句是
正确的
。不知道还少了些什么，请各位大神指教。

SQL没有问题，或者你用SQL select userid,username,balance from 表2 where userid='" & (TextBox1.Text) & "'" 这个看看有没有查询出数据来。