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 #107.41K
|
Dim db As New Connection 'Dim tbpro As New ADODB.Recordset 'Dim db As Database Dim tbpro As Recordset Private Sub Command1_Click() rsMyRecordset.Open (App.Path & "\" & "super.mdb") rsmyreco End Sub Private Sub Form_Load() 'db.ConnectionString = (App.Path & "\" & "super.mdb") 'tbpro.ActiveConnection "table1", db, adOpenDynamic, adLockOptimistic db.Open (App.Path & "super.mdb") Set …
|