Unhandled exception of type "System.Data.OleDB.....
I keep getting:
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll
But there is no explanation of what is wrong other then that. And its on this line:
objOwnerDA.FillSchema(objDataSet, SchemaType.Source, "Owners")
Marked Below with an '***************** above it.
Anyone have some ideas?
Code:
Dim objConnection As New OleDb.OleDbConnection( _
"Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=C:\Surgery.mdb")
Dim objOwnerDA As New OleDb.OleDbDataAdapter("Selct * from Owners", _
objConnection)
Dim objOwnerCB As New OleDb.OleDbCommandBuilder(objOwnerDA)
Dim objDataSet As New DataSet()
Private Sub btnRetrieve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbRetreive.Click
'Clears DataSet Of any existing Data
objDataSet.Clear()
'Fill schema - adds table structure information to Dataset
'Not essential, but handles primary keys for us, etc.
'*************************************************
objOwnerDA.FillSchema(objDataSet, SchemaType.Source, "Owners")
'Fills Dataset with info from out DataAdapter
objOwnerDA.Fill(objDataSet, "Owners")
' Empty combo Box
cboOwners.Items.Clear()
' Loop through each row, adding the OwnerID to to combo box
Dim i As Integer, strCurrentID As String
For i = 1 To objDataSet.Tables("Owners").Rows.Count
strCurrentID = objDataSet.Tables("Owners").Rows(i - 1).Item("OwnerID")
cboOwners.Items.Add(strCurrentID)
Next
'Select first item in the list
cboOwners.SelectedIndex = 0
End Sub