VB.NET: display data on datagrid gives error

[Walyer]

i'm very new to SQL Server and VB.Net 2003

i'm trying to display data on a DataGrid and it's keeps given me an error

this is the code i'm using and i hope someone can help


Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
UpdateDataGrid( "SELECT * FROM Main")
End Sub


Private Sub btnLoad_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles btnLoad.Click
UpdateDataGrid( "SELECT * FROM Main")
End Sub


Private Sub btnRefresh_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnRefresh.Clic k
dgDisplay.Dispo se()
UpdateDataGrid( "SELECT * FROM Main")
End Sub


Sub UpdateDataGrid( ByVal sqlStr As String)
Dim dt As New DataTable
Dim connStr As String = "provider=micro soft.jet.oledb. 4.0;" & "data source = PriManagement.m db"
Dim dataAdapter As New OleDb.OleDbData Adapter(sqlStr, connStr)
[COLOR=DarkRed]dataAdapter.Fil l(dt)[/COLOR] this is where i get my error :confused:
dataAdapter.Dis pose()
dgDisplay.DataS ource = dt
End Sub

[nateraaaa]

Try the following code found on MSDN

[Visual Basic] 
Public Function SelectOleDbSrvRows(dataSet As DataSet, connection As String, query As String) As DataSet
    Dim conn As New OleDbConnection(connection)
    Dim adapter As New OleDbDataAdapter()
    adapter.SelectCommand = new OleDbCommand(query, conn)
    adapter.Fill(dataset)
    Return dataset
End Function