Dim objConn As New OleDb.OleDbConnection _
           ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=.databasemdb")        'open connection
        Dim objCmd As New OleDb.OleDbDataAdapter _
           ("select * from table", objConn)        'fill dataset
        Dim ds As DataSet = New DataSet()
        objCmd.Fill(ds)
        Datagrid1.Open(ds)
        Datagrid1.DataBind()