Runtime error 13 Type mismatch đoạn code lấy dữ liệu từ Acess (1 người xem)

[quyenpv]

Em viết 1 Sub lấy thông tin từ 1 bảng trong CSDL Acess nhưng bị lỗi Runtime error 13 Type mismatch. Dò không hiểu lỗi gì, mong các anh xem giúp

Sub GetGhichu(Mavl As String)

  Dim strSQL As String

  strSQL = "SELECT * FROM tb_vatlieu WHERE mavl = '" & Mavl & "'"

  Dim RsGc As Recordset

  Set RsGc = db.OpenRecordset(strSQL)                   ==> Runtime error 13 Type mismatch

  Me.txt_ghichu.Text = ""

  If RsGc.RecordCount > 0 Then

    RsGc.MoveFirst

     Do While Not RsGc.EOF

      If IsNull(RsGc.Fields(1)) = False Then

        If IsNull(RsGc.Fields(4)) = False Then Me.txt_ghichu.Text = RsGc.Fields(4)

        Exit Do

      End If

      RsGc.MoveNext

     Loop

  End If

  RsGc.Close

End Sub

 

[ptm0412]

Biến db chưa khai báo (không biết kiểu), và chưa có giá trị
Dữ liệu nguồn (file Access) chưa khai báo đường dẫn và tên file