Unable to connect Testcomplete database

i have used below code to connect oracle database using Vb script in Test Complete 11

 

Set connect = CreateObject ("ADODB.Connection")
Set Rs=CreateObject ("ADODB.RecordSet")
strconnection="Driver={Microsoft ODBC for Oracle};Server=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=10.67.55.213)(PORT=1521))(CONNECT_DATA=(SID=TW)));Uid="&Credential&";Pwd="&Credential&";"
Connect.open strconnection
Set RS = connect.execute("")
Set RS = connect.execute("")
Connect.Close
Set connect = Nothing
Set RS=Nothing