compile error in connecting database

[johncornelius23]

whenever I try to run it I have a compile error in connecting my database this is my code

Dim con   As Adodb.Recordset
  Dim conn1   As Adodb.Connection
Private Sub mygdb()
        Set con = New Adodb.Connection
        con.CursorLocation = adUseClient
        con.Open "PROVIDER = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\enrolment.mdb;"
End Sub

[BitBlt]

You are trying to set the variable "con" to be a new connection. It is defined as a Recordset object.

[QVeen72]

Hi,

Change the code to:

Dim RS As New Adodb.Recordset
Dim con As New Adodb.Connection
Private Sub mygdb()
    Set con = New Adodb.Connection
    con.CursorLocation = adUseClient
    con.Open "PROVIDER = Microsoft.Jet.OLEDB.4.0;Data Source =" _
        & App.Path & "\enrolment.mdb;"
End Sub

Regards
Veena