Oracle Database Discussions

Hi:
I'm using a driver from DataDirect: DataDirect 5.1 Oracle to connect to oracle. I'm able to do test connect Successfully with a tool provided by Data Direct. The OS is Windows 2000 sp4

I'm trying to use a source code I found in Microsoft web site and I get an error
saying "[DataDirect][ODBC Oracle Driver]Insufficient information to connect to
the data source". I think I'm in right direction, but something is missing. This
is my first time trying to connect to Oracle using VB6. Pleas need help:

Option Explicit
Public db As New ADODB.Connection
Public uid As String
Public pwd As String
Public dBase As String

Sub OracleConnect()
On Error GoTo logonError
Dim Conn As String
Dim drv As String
uid = Trim$(frmLogon.txtUserId.Text)
pwd = Trim$(frmLogon.txtPassword.Text)
dBase = Trim$(frmLogon.txtDatabase.Text)
Set db = New ADODB.Connection
With frmLogon

If .txtUserId.Text = "" Then
MsgBox "Please Enter USER ID", vbExclamation
.txtUserId.SetFocus
Exit Sub
ElseIf .txtPassword.Text = "" Then
MsgBox "Please Enter Password", vbExclamation
.txtPassword.SetFocus
Exit Sub
End If
'Connection String
If .txtDatabase.Text <> "" Then
Conn = "UID= " & uid & ";PWD=" & pwd & ";DRIVER={DataDirect 5.1 Oracle};" _
& "SERVER=" & dBase & ";"
Else
Conn = "UID= " & uid & ";PWD=" & pwd & ";DRIVER={DataDirect 5.1 Oracle};"
End If
End With

Screen.MousePointer = vbHourglass
'Connect With ORACLE
With db
.ConnectionString = Conn
.CursorLocation = adUseClient
.Open
End With
Screen.MousePointer = vbDefault
logonError:
If Err.Number <> 0 Then
Screen.MousePointer = vbDefault
MsgBox "If Any Error Occured Please Restart the Prog If Reqd. Error Description:" & Err.Description & "", vbCritical

With frmLogon
.txtUserId.Text = ""
.txtPassword.Text = ""
.txtDatabase.Text = ""
.txtUserId.SetFocus
End With

Else
Screen.MousePointer = vbDefault
Unload frmLogon
frmMain.Show
End If

End Sub