Connecting to Oracle 9i using Visual Basic 6.0

Question

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

Answer 1

I do this way!
1. Create a system DSN from ODBC DataSource ... for example named it "mydsn"
   using 'Microsoft ODBC for Oracle' Driver
2. In VB6, goto project->preferences, and select any "Microsoft Activex Data Objects 2.X library
3. Write the following sample code for test:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "dsn=mydsn", "scott", "tiger"
rs.Open "select *  from emp", cn, adOpenDynamic, adLockOptimistic
MsgBox "Connected to Oracle with scott....",vbinformation
End Sub