ADOを使いDBへ読み書きしたい
VB初心者です。よろしくお願いします。
今、VBのActiveXドキュメントを使い、ブラウザ上で利用できるシステムを作ろうと思っています。その際、Textboxに入力されたデータをADOを使いAccess2003に格納したいのですが、うまくいきません。DAOではうまくいきました。
コードは以下の通りです。
Private Sub Command1_Click()
Dim db As ADODB.Connection
Dim rst1 As ADODB.Recordset
Set db = New ADODB.Connection
db.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source = 'データへのパス'\zaseki3.mdb"
db.Open
MsgBox ("接続成功")
Set rst1 = New ADODB.Recordset
☆☆rst1.Open "T-利用者", db,adOpenForwardOnly,adLockOptimistic
With rst1
.AddNew
.Fields("氏名") = Text1
.Update
End With
rst1.Close
db.Close
Set db = Nothing
Set rst1 = Nothing
End Sub
☆☆のところでエラーが発生します。エラー内容は次の通りです。
実行時エラー'-2147217900(80040e14)':
SQLステートメントが正しくありません。'DELETE'などを使用してく ださい。
環境は Windows XP, VB6.0, Access2003 です。
よろしくお願いします。
