tt1212 > 10-04-15, 04:57 PM
Sub AddReference()
Dim strPath1 As String
Dim strPath2 As String
Dim strPath3 As String
Dim strPath4 As String
strPath1 = CurrentProject.Path & "\msado28.tlb"
Access.References.AddFromFile strPath1
'strPath2 = CurrentProject.Path & "\user32.dll"
strPath3 = CurrentProject.Path & "\msjro.dll"
Access.References.AddFromFile strPath3
strPath4 = CurrentProject.Path & "\msadox28.tlb"
'Access.References.AddFromFile strPath2
Access.References.AddFromFile strPath4
End Sub
Mà bị lỗi mình chưa thành công vì trên win 64; win 32 đểu bị lỗi mong mọi người giúp đỡ nhé