So hier direkt ein kleiner Codeauszug, wie ich die Verbindung hergestellt habe:
Public Function OraConnect() As Boolean
Dim sUser As String = "yourUserName"
Dim sPasswd As String = "yourPassword"
'Mit Oracle DB verbinden
Try
Dim sConnString = "Data Source=(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP) (HOST = %DEINHOST%)(PORT = 1521)) (ADDRESS = (PROTOCOL = TCP) (HOST = %DEINHOST)(PORT = 1521))) (LOAD_BALANCE=ON) (FAILOVER=ON) (CONNECT_DATA = (SERVICE_NAME=SERVICE_RAC) (FAILOVER_MODE=(TYPE=SELECT)(METHOD=BASIC)(RETRIES=10)(DELAY=5))));" & _
"USER=" & sUser & "; password=" & sPasswd
_oConn.ConnectionString = sConnString
_oConn.Open()
Return True
Catch ex As Exception
'Fehlerbehandlungen - evt. E-Mail an Programmierer senden
End Try
Return False
End Function
Eine recht nützliche Website zu dem Thema: www.connectionstrings.com