Catastrophic failure on "cn.open"

[lex_ph]

hi guys. i'm trying out the ado tutorial and this code was from the tut. can someone help me out. im using vb6, ms access 2002.

...
Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "\db1.mdb"
[color=red]    conn.Open[/color]
Set rcst = New ADODB.Recordset
    rcst.Open "tbl_master", conn, adOpenKeyset, adLockPessimistic, adCmdTable
...

i'm having a "CATASTROPHIC FAILURE" and it points to the red text (conn.Open) and i don't know why. someone help me please. i am still new to database devt.

[Hack]

Try this

Dim strConString As String
Set conn = New ADODB.Connection
 
    strConString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "\db1.mdb"
    conn.ConnectionString = strConString
    conn.Open strConString