Error al conectar con ADODC en VB6

Salo
11 de Junio del 2004
Tengo el siguente codigo en VB:
Dim cnn1 As ADODB.Connection

Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "DRIVER={Oracle ODBC Driver};UID=REPOBRI;PWD=crmbri;DBQ=TTCR-ORA1;DBA=R"
cnn1.ConnectionTimeout = 30
cnn1.Open

MsgBox "cnn1 state: " & GetState(cnn1.State)
cnn1.Close

pero al ejecutarlo me arroja el siguiente mensaje:

Run-time error '-2147467259 (80004005)'
[Oracle][ODBC][Ora]General error.

Podria alguien ayudarme? Gracias de antemano.