Creating Connection string for DB2

[sqadri]

Hi,

I am trying to craete a cnnection string for DB2 but cannot it working. Here are the functions I am suing. Could someone please tell me what is wrong. I believe it is the data Source but dont know what that is.

Code:

Function getConnection ()
    On Error Resume Next
    Dim oConnection,ConnectionString
    ConnectionString ="jdbc:db2://ny-c-012:50000/hztest" '"Provider=Microsoft.Jet.OLEDB.4.0"
    Data Source="DB2LUW"'"hztest"'C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight32.mdb"
    User Id="db2admin", Password="Ibmtest1"
    Set oConnection = CreateObject("ADODB.Connection")
    oConnection.Open ConnectionString
    Set getConnection = oConnection
End Function

Function CheckConnection
   Dim MyConnString, MyConnection
   Set MyConnection = getConnection
   If MyConnection.Errors.Count = 0 Then
       Print "Database Connected"
    else
        Print "Database Failed"
   End If
End Function

Thanks,
Sqadri