คือมี Code ดังนี้ค่ะ

Private Function fIsJet4DB(strMDB As String) As Boolean
On Error GoTo ErrHandler
Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;" _
& "Data Source=" & strMDB & ";Mode=Share Deny None;"
.Open
fIsJet4DB = (cnn.Properties("Jet OLEDB:Engine Type") = 5)
End With
ExitHere:
On Error Resume Next
cnn.Close
Set cnn = Nothing
Exit Function
ErrHandler:
With Err
MsgBox "Error Number: " & .Number & vbCrLf & .Description, _
vbCritical Or vbOKOnly, .Source
End With
Resume ExitHere
End Function

ถามว่า ถ้าFile MSAccess ตั้ง Password ไว้ จะต้องไปแก้ไข Code ตรงส่วนไหนค่ะ
กรุณาด้วยค่ะ ขอบคุณค่ะ