the cod
CODE
con.Open()
Dim sql As String = "SELECT * FROM Section"
Dim da As New OleDbDataAdapter(sql, con)
Dim ds As New DataSet
da.Fill(ds, "Section")
the error maseg in the statement da.Fill(ds, "Section")
IErrorInfo.GetDescription failed with E_FAIL(0x80004005).