[thefifthhjohn]

this is my code for the login form using ms access would someone please help me? Everytime I run the program, it usually says connection cannot be used.

Dim con As New ADODB.Command
Dim rs As New ADODB.Recordset

Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub cmdLogin_Click()
Set rspassword = New ADODB.Recordset
rspassword.Open "Select * from table1"
If rspassword.RecordCount > 0 Then
    Do Until rspassword.EOF
        If txtUsername.Text = rspassword!UserName And txtPassword.Text = rspassword!Password Then
            'frmmain.L1.Caption = Text1.Text
            Set rspassword = Nothing
            Unload Me
                frmmain.Show
                        ctr = 0
                Exit Do
                Else
          rspassword.MoveNext
            ctr = ctr + 1

               
        End If
        Loop
        If ctr > 0 Then
         Set rspassword = Nothing
                MsgBox "Invalid!", vbExclamation
                Text1.Text = ""
                Text2.Text = ""
                Text1.SetFocus
        ctr = 0
    End If
        End If
End Sub

Attached image(s)

• 
• 

[maj3091]

Where do you open the connection to the database?

[thefifthhjohn]

maj3091, on 12 August 2012 - 05:21 AM, said:

Where do you open the connection to the database?

Public rs As New ADODB.Recordset
Public con As New ADODB.Connection
Public Sub OpenCon()
    Set con = New ADODB.Connection
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\Database\enrollment.mdb"

[maj3091]

Please don't PM me on open threads, keep things in the forum.

Does the connection open OK? Do you check it's actually open?

[thava]

yes he opened it but where is he assigned the connection to the recordset

[maj3091]

thava, on 13 August 2012 - 01:40 AM, said:

yes he opened it but where is he assigned the connection to the recordset

Well spotted thava....you can tell I don't do much database work!

Have a look a the Recordset properties and methods.

You either need to set the ActiveConnection property, or pass it during your .Open call.

[BobRodes]

maj3091, on 13 August 2012 - 02:12 AM, said:

[
You either need to set the ActiveConnection property, or pass it during your .Open call.

Preferably the latter; the "stateless" vs. the "stateful" method.