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.80K
1 Posted Topic
Option Explicit Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim list As ListItem Sub Connection() cn.Open "provider=microsoft.jet.oledb.4.0;data source=C:\Users\Archana\Documents\login.mdb;" rs.CursorLocation = adUseClient rs.Open "ARegistration", cn, adOpenKeyset, adLockPessimistic End Sub Private Sub cboAid_Click() rs.Open "Select * from ARegistration", cn, adOpenDynamic, adLockOptimistic rs.MoveFirst Do While Not rs.EOF If cboAid.Text = …
The End.