急！vb和access数据库连接成功而在DataGrid里没数据显示是什么问题？？请各位大虾帮忙！

我把access的数据放在E：\同学录\DATA，vb安装在C盘，我现在要用VB连接access数据库，下面是我写的一段代码，它只是显示“数据库连接成功”而在DATAGRID没有数据。
Private Sub DataGrid1_LoadData()
Dim i As Integer
  Set DataGrid1.DataSource = Mytb '记录集
  DataGrid1.ReBind
  
  
   For i = 1 To DataGrid1.Columns.Count
    DataGrid1.Columns(i - 1).Alignment = dbgCenter '居中显示
   Next i    DataGrid1.Columns(0).Width = 1300
    DataGrid1.Columns(1).Width = 1000
    DataGrid1.Columns(2).Width = 1300
    DataGrid1.Columns(3).Width = 2300
    
    
   DataGrid1.Columns(0).Caption = "学号"
   DataGrid1.Columns(1).Caption = "姓名"
   DataGrid1.Columns(2).Caption = "性别"
   DataGrid1.Columns(3).Caption = "地址"
Private Sub Form_Load()
'***************************数据库操作***************************
DBName = App.Path & "\data\data.mdb"'MsgBox DBName
'连接数据库
Call ConnectDB_MDB(DBName)If Status = True Then
  MsgBox "数据库连接成功", vbInformation, "提示"
ElseIf Status = False Then
  MsgBox "数据库连接失败", vbInformation, "提示"
  End
End If
'*****************************************************************
End Sub下面是公共模块的代码：'全局变量sqlstring是整个程序的数据库查询语句（SQL语言）
Public SqlString  As String
Public MydbADO As New ADODB.Connection
Public Mytb As New ADODB.Recordset
Public DBName As String
Public Status As Boolean'连接mdb数据库的函数ConnectDB_MDB(Databasename)
Public Sub ConnectDB_MDB(Databasename As String)
On Error GoTo ErrorhandlerOpendbMydbADO.Provider = "Microsoft.Jet.OLEDB.4.0" '连接引擎
MydbADO.Mode = adModeShareExclusive '独占打开
MydbADO.Open Databasename '打开数据库ErrorhandlerOpendb:
Select Case Err
Case 0
   Status = True
 Case Else
   Status = False
 End Select
End Sub