>Not sure why this insert doesn't work. It doesn't error at all,
>yet I get no new record into the products table.
>
>

>Imports System.Data.OleDb
>
>Module VFPStuff
>
>    Public Sub VFP1()
>
>        Dim connStr As String = "Provider=VFPOLEDB.1;Data Source=" & _
>                                "c:\program files\microsoft\vfp8\samples\data\testdata.dbc"
>        Dim strSQL As String = "SELECT * FROM Products"
>        Dim oda As New OleDbDataAdapter(strSQL, connStr)
>        Dim cmdInsert As New OleDbCommand("INSERT INTO Products " & _
>                                 "(product_id, prod_name) VALUES ('KEV1','Kevin1')")
>
>        oda.InsertCommand = cmdInsert
>
>        MsgBox("Inserted")
>
>    End Sub
>
>End Module
>

Kevin,
As I remember there are fields in that table not allowing nulls. Set null off first.

New OleDbCommand("set null off") and ExecuteNonQuery() (for this one and for insert).
Cetin