急等,INSERT INTO 语句的语法错误
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" + Application.StartupPath + "\\网吧数据库.accdb"
Dim conn As OleDbConnection = New OleDbConnection(str)
conn.Open()
Dim sql As String = "insert into tbUser(UserName,Password,,,Fee,,,,,,)values('" + textBox1.Text.Trim() + "','" + textBox2.Text.Trim() + "',,,'" + textBox4.Text.Trim() + "',,,,,,)"
Dim cmd As OleDbCommand = New OleDbCommand(sql, conn)
Dim i As Integer = cmd.ExecuteNonQuery()
If i > 0 Then
Dim l As String = "欢迎光临蓝天高级网吧!" + "\n" + "---------------------" + "\n" + "卡号:" + textBox1.Text + "\n" + "密码:" + textBox2.Text + "\n" + "押金:" + textBox4.Text + "\n" + "开通时间:" + textBox5.Text + "\n" + "开通时长:" + s + "\n" + "\n" + "在本网吧包时、早市、夜市、会员" + "\n" + "一律不能退钱"
MsgBox("l")
conn.Close()
End If
代码就是这样,已运行就提示语法错误,求解决