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

我把Access的DATA放在E盘，用vb写代码，运行时她已经显示数据库连接成功，可是在datagrid里没有数据，怎么解决？？请各位大虾帮忙！！下面是连接数据库的一段代码：
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