lỗi khi load file access vào excel (1 người xem)

[authority]

em chào các anh ạ
các anh sửa giúp em code này em với ạ

Sub Loadfileaccess()
    Dim DB As Database
    Dim B As Recordset
    Dim i As Integer
         With Application.FileDialog(msoFileDialogOpen)
           .Filters.Add "Database File(*.mdb)", "*.MDB", 1
        If .Show = -1 Then
            FileMDB = .SelectedItems(1)
        End If
       End With
    Set DB = OpenDatabase(FileMDB)
    Set B = DB.OpenRecordset("SELECT * FROM [Sheet1]")
          DB.Close
End Sub

Khi mà làm sao load file access mà có sheet: sheet 1 thì load đc
còn không là báo lỗi
vậy các anh sửa dùm em thế này với ạ
nếu file access mình cần load vào mà có sheet1 thì làm tiếp công việc sau
còn nếu trong file access mình cần load vào mà không có sheet1 thì hiện thông báo : bạn hãy kiểm tra lại file access
em cảm ơn các anh ạ

 

[authority]

các anh giúp em với
em đang mò mãi mà không đc ạ
em cảm ơn các anh ạ