VisualBasic6でAccess2000にデータ格納

質問

初めまして私はVB6.0の初心者でVB6.0について勉強しています。今VB6.0でAccess2000を利用する勉強をしています。

<プログラム内容>
　フォームに貼り付けたテキストボックス３つ（ID,Password,氏名）とコンボボックス２つ(性別,年齢)にデータを入力しOKボタン（コマンドボタン）を押すとAccess2000のテーブルの中のレコードが追加される。

＜条件＞
・テーブル名：PROF

・フィールド情報
　IDとPasswordと氏名と性別はテキスト型で、年齢は数値型です。

　私の場合は以下のようなコードを作成しましたが実行すると「Insert文が間違っている」と出てきてしまいます。何故なのでしょうか。お知恵をお貸しください。宜しくお願いします。

Private Sub OK_Click() 'OKボタンを押下すると

'ADOのオブジェクト変数を宣言
Dim cn As New ADODB.Connection 'Connectionオブジェクトを扱う変数(cn)を宣言
Dim rs As New ADODB.Recordset 'Reocordsetオブジェクトを扱う変数(rs)を宣言
Dim strSQL As String 'SQL文

strSQL = "INSERT INTO PROF " & _
" (ID　" & _
" ,Password " & _
" ,氏名 " & _
" ,性別 " & _
" ,年齢) " & _
"VALUES (' ID.Text ' " & _
" ,' Password.Text ' " & _
" ,' Name.Text ' " & _
" ,' Sex.Text ' )" & _
" ,' Age.Text ' )"

'データベースに接続するための情報を設定する(データベースの種類、データソース)
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source = C:\sample\ID.mdb"

'データソースへ接続
cn.Open

'AcccessのPROF(テーブル)のID,Password,氏名,性別,年齢(フィールド)にデータ(ID,Password,氏名,性別,年齢)を挿入
rs.Open strSQL, cn

'コネクションを終了する
cn.Close

End Sub

回答No.5

kikujack

"INSERT INTO PROF " & _
" (ID　" & _
" ,Password " & _
" ,氏名 " & _
" ,性別 " & _
" ,年齢) " &
>>という書き方がいけなかったのでしょうか。

もちろんいいですよ。
でも、上記のコードが面倒じゃないですか？

>>"Insert into PROF (ID ,PD,氏名,性別,年齢) Values"
このほうがもっと簡単でしょう。