Form per connettermi a ACCESS

[ramengo]

Ho iniziato a scrivere ma al primo punto già mi da errore (variabile del blocco with non impostata)

Ti posto il codice fino al putno in cui muore...

__________________________________________________ ________________

Private Sub Form_Load()

Dim conn As Adodb.Connection
Dim ConnectionString As String

Dim rs As Adodb.Recordset
Dim rs2 As Adodb.Recordset

Dim SqlQuery As String
Dim SQL As String

ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\Agenda.mdb"
'MsgBox (ConnectionString)
conn.Open ConnectionString

end sub