说是sql语句错误，可是昨天还好使啊！就是多加了几个文本框！！！
代码如下，快救命啊！抽风啊！！！
Imports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data.OleDb
Imports System.Data
Imports System
Public Class Form4
Inherits Form
Private component As System.ComponentModel.Container = Nothing
Private myDataSet As DataSet
Private myBind As BindingManagerBase
Public Sub New()
MyBase.New()
GetConnected()
InitializeComponent()
End Sub
Public Sub GetConnected()
'创建一个数据连接
Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = hyjf.mdb "
Dim myConn As OleDbConnection = New OleDbConnection()
myConn.ConnectionString = strCon
Dim strCom As String = " SELECT * FROM members "
'创建一个 DataSet
myDataSet = New DataSet()
myConn.Open()
'通过OleDbDataAdapter对象得到一个数据集
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(strCom, myConn)
'把Dataset绑定books数据表
myCommand.Fill(myDataSet, "members")
'关闭此数据连接
myConn.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox4.Text <> "" And TextBox6.Text <> "" And TextBox7.Text <> "" And TextBox8.Text <> "" And TextBox9.Text <> "") Then
Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = hyjf.mdb"
Dim myConn As OleDbConnection = New OleDbConnection(myConn1)
myConn.Open()
Dim strInsert As String = " INSERT INTO members ( asid ,idcard ,isdate ,name ,fee ,mobil ,size ,career , phy) VALUES ( '" & TextBox1.Text + "' ,'" & TextBox2.Text + "','" & TextBox3.Text + "','" & TextBox4.Text + "','" & TextBox5.Text + "','" & TextBox6.Text + "','" & TextBox7.Text + "','" & TextBox8.Text + "','" & TextBox9.Text + "')"
Dim inst As OleDbCommand = New OleDbCommand(strInsert, myConn)
inst.ExecuteNonQuery()'运行到这就停了，说sql语句有问题，可是昨天这么写还是可以运行的啊！这是抽的什么疯啊！！！气死大爷我了！
myConn.Close()
MessageBox.Show("已成功添加一条会员记录！", "成功！")
'myDataSet.Tables("members").Rows(myBind.Position).BeginEdit()
'myDataSet.Tables("members").Rows(myBind.Position).EndEdit()
'myDataSet.Tables("members").AcceptChanges()
Else
MessageBox.Show("必须填满所有字段值！", "错误！")
End If
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MdiParent = Form1
End Sub
End Class
[解决办法]
