Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase(<service name>, <username/password>, ORADYN_DEFAULT)

con.Open "Provider=OraOLEDB.Oracle.1;User ID=" & User_Name & ";Password=" & Pass_word & ";Data Source=" & data_Source

Function Read_INI_File(dbName As String)
Dim fnum As Integer
Dim one_line As String
Dim pos As Integer
Dim iniValue As String

    fnum = FreeFile
    Open CurDir & "\" & "DBNAME.INI" For Input As fnum

    Do While Not EOF(fnum)
        ' Read a line.
        Line Input #fnum, one_line
        'MsgBox one_line
        ' See what it is.
        If Left$(one_line, 1) = "[" Then
            ' Section heading.
            iniValue = Mid$(one_line, 2, Len(one_line) - 2)
            If dbName = iniValue Then
                Line Input #fnum, one_line
                pos = InStr(one_line, "=")
                data_Source = Mid$(one_line, pos + 1)
                Line Input #fnum, one_line
                pos = InStr(one_line, "=")
                User_Name = Mid$(one_line, pos + 1)
                Line Input #fnum, one_line
                pos = InStr(one_line, "=")
                Pass_word = Mid$(one_line, pos + 1)
                'MsgBox databaseName & User_Name & Password
                Exit Do
            End If
        End If
    Loop

    Close fnum
End Function

[HR]
DATABASE=XE
USER=HR
PASSWORD=HR

Private Sub Command1_Click()
de1.rsdoctor.AddNew
End Sub

Private Sub Command2_Click()
Dim u As Integer
u = MsgBox("Do you want to Update the data !", 1, "Confirm Update !")
If u = 1 Then
de1.rsdoctor.Update
End If
End Sub

Private Sub Command3_Click()
Dim a As Integer
a = MsgBox("Do you want to delete this Record !", 1, "Confirm Delete !")
If a = 1 Then
de1.rsdoctor.Delete
End If
End Sub

Private Sub Command4_Click()
de1.rsdoctor.MoveFirst
End Sub

Private Sub Command5_Click()
de1.rsdoctor.MovePrevious
If de1.rsdoctor.BOF Then
MsgBox ("You are at the First Record !")
de1.rsdoctor.MoveNext
End If
End Sub

Private Sub Command6_Click()
de1.rsdoctor.MoveNext
If de1.rsdoctor.EOF Then
MsgBox ("You are at the Last Record !")
de1.rsdoctor.MovePrevious
End If
End Sub

Private Sub Command7_Click()
de1.rsdoctor.MoveLast
End Sub