Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
~235 People Reached
Favorite Forums
|
Dim con5 As New ADODB.Connection Dim rs5 As New ADODB.Recordset Private Sub Command1_Click() con5.Provider = "Microsoft.JET.OLEDB.4.0;" con5.Open App.Path + "\da.mdb" rs5.Open "[DEMO]", con5, adOpenStatic, adLockOptimistic 'The above code can't work when the database is protected. 'Please Tell, How can I solve it 
|