Imports System.Data
Imports System.Data.OleDb

        Dim connStr, selectCmd As String, i As Integer
        connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb"
        selectCmd = "Select * From SCORE"      
        Dim conn As OleDbConnection, myAdapter As OleDbDataAdapter
        conn = New OleDbConnection(connStr)
        conn.Open()
        Dim myDataSet As DataSet = New DataSet()
        myAdapter = New OleDbDataAdapter(selectCmd, conn)
        myAdapter.Fill(myDataSet, "成绩单")
        DataGrid1.DataGrid1.DataSource = myDataSet.Tables("成绩单")
        conn.Close()