Private _conn As New OleDbConnection()
    Private _da As OleDbDataAdapter
    Private _ds As New DataSet()
    Private _dt As DataTable
    Private _dv As DataView
 
 
    Private Sub GetData()
        _conn.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";" & _
                                "User ID=Admin;Data" & _
                                "Source=c:\CD1b\Test\NWIND.MDB"
        _da = New OleDbDataAdapter("Select * From Orders ", _conn)
        Try
            _da.Fill(_ds, "Orders")
        Catch ex As System.Exception
            Debug.WriteLine(ex.Message)
        End Try
        _dt = _ds.Tables("Orders")
        _dv = _dt.DefaultView
        DataGrid1.DataSource = _dv
    End Sub