Private Sub Form_Load() With db .Provider = "Microsoft.Jet.OLEDB.4.0" .Mode = adModeReadWrite .Open (App.Path & "\DBAddress.mdb") End With End Sub
Guys that's my code and I think that code contains no error. What's happening is that when I'm starting to execute the code.
It shows a Run Time Error: Could not find file 'C:\Documents and Settings\Mendoza\Desktop\mis system\DBAddress.mdb'.
Hope that you could help me out guys. Thank you and Have a nice one to all. =)