Sub CreateStoredProc(ByVal sSQL As String) Dim con As OleDbConnection Dim cmd As OleDbCommand = New OleDbCommand() Dim da As OleDbDataAdapter
'''' Change Data Source to the location of Northwind.mdb on your local '''' system. Dim sConStr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data " _ & "Source=C:\Program Files\Microsoft " _ & "Office\Office10\Samples\Northwind.mdb"