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