Problem med at udføre sql udtræk i mysql database

Hejsa

Jeg har et problem med at få lov til at udføre et kald til min database. Jeg har følgende funktion:

Function dbOpen()
    ' Undersøger om der er fejl i database forbindelsen
    On Error Resume Next
    Connection_string = "driver={MySQL ODBC 3.51 Driver};pwd="& cSql_Password &";uid="& cSql_Login &";database="& cSql_Database &";server="& cSql_Serverip
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.Recordset")
    Conn.Open Connection_string
   
    ' Hvis der var fejl i database forbindelsen så sendes brugeren til en fejl side
    If Err.Number > 0 Or Err.Number < 0 Then
        Response.redirect "dbFejl.asp"
    End If
   
End Function

Denne kalder jeg med:
dbOpen()

Og derefter har jeg følgende kode:
Sql = "UPDATE Data Set nr = '1' Where ID = '" & RQ_ID & "'"
Set Rs = Conn.Execute(Sql)

Når jeg så kørere min kode får jeg følgende fejl:
Microsoft VBScript runtime error '800a01a8'
Object required: ''

Fejlen meldes i følgende linie:
Set Rs = Conn.Execute(Sql)

Hvis jeg nu så udmarker følgende dele af min kode, således at jeg ikke kalder det hele som en funktion, så virker det fint:
Function dbOpen()
End Function
dbOpen()

Hvad kan jeg gøre for at få den til at accepter min funktion?