データベースにデータを追加

Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\mdb_test\ITEMS.mdb")
Dim SQLCm As OleDbCommand = Cn.CreateCommand

If Cn.State = ConnectionState.Closed Then Cn.Open()
	SQLCm.CommandText = "INSERT INTO TEXTPOINT VALUES (" & key & "," & temID & "," & tItem.Left & "," & tItem.Top & ")"
	SQLCm.ExecuteNonQuery()
Cn.Close()