VB勉強中

現在VBを勉強中です。
Visual StudioでAccessデータベースにデータを登録していくソースを書いていますが上手く動きません。
ダメなところはExecuteNonQueryの部分みたいなのですが、どうしたらよいのか分かりません。
初歩的なことで申し訳ありませんがご教授お願いいたします。

環境は
・Visual Studio2017
・Access2016
です。

**********************************************************************
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim con As OleDbConnection
Dim cmd As OleDbCommand
Dim str_sql As String

str_sql = ""
str_sql &= "INSERT INTO "
str_sql &= "テーブル1 "
str_sql &= "("
str_sql &= "日付, "
str_sql &= "番号, "
str_sql &= "名前, "
str_sql &= "住所, "
str_sql &= "年齢, "
str_sql &= "星座, "
str_sql &= "更新日, "
str_sql &= ") "
str_sql &= "VALUES "
str_sql &= "("
str_sql &= "'" & DateTimePicker1.Text & "', "
str_sql &= "'" & TextBox3.Text & "', "
str_sql &= "'" & TextBox1.Text & "', "
str_sql &= "'" & RichTextBox1.Text & "', "
str_sql &= "'" & TextBox2.Text & "', "
str_sql &= "'" & ComboBox1.Text & "', "
str_sql &= "'" & Today() & "', "
str_sql &= ")"

con = New OleDb.OleDbConnection
con.ConnectionString = My.Settings.con_練習
con.Open()
cmd = con.CreateCommand
cmd.CommandText = str_sql
cmd.Connection = db_cn
cmd.ExecuteNonQuery()
con.Close()
cmd.Dispose()

End Sub

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2017/12/31 06:10

詳しくは見ていませんが。

＞str_sql &= "'" & Today() & "', "

最後の","は不要じゃないのかな？
あと"Today()"って使えたかな？
"Date()"にしてみるとか？（フィールドの設定が日付であればですが、文字列ならダメかも？）

この回答へのお礼

回答ありがとうございます。
確かに再確認すると不必要でした。
訂正することによって無事に解決することが出来ました。

ありがとうございました。

お礼日時：2018/01/01 00:55