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