I have referenced the MS Active X Object Library 6.
Welcome to the forums

Try this... A slight change in your code. if it doesn't work, then we will take it from there...

Code:
Sub Sample()
    Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
    Dim strConn As String, strSQL As String
    Dim myUser As String, myPassword As String
    
    myUser = "travel"
    myPassword = "travel"
    
    strConn = "Provider=MSDAORA;Data Source=192.168.0.195:1521/XE;" & _
    "Password=" & myPassword & ";User ID=" & myUser & ";Persist Security Info=True"
    
    conn.Open strConn
    
    strSQL = "select * From airlines"
    rs.Open strSQL
          
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub