为什么通不过????
Private Sub Command3_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim comd As New ADODB.Command
Dim ConnStr As String
Dim tab1 As String
Dim dol As String
Dim strsql As String
tab1 = ""
tab1 = Text1.Text
For I=0 To AA
strSQL = strSQL & Chr(13) & _
"INSERT INTO tableName (field1,field2,...) VALUES (value1,value2,...)"
Next I
cnn.Execute "Begin Transaction"
cnn.Execute strSQL
cnn.Execute "Commit Transaction"