Connect von Access auf Oracle

[Herrmann]

Beim Ausf�hren dieser Sub, bekomm ich immer die Meldung "kein Kennwort �bergeben."
Lass ich mir den Connectstring nach Aufruf der Function anzeigen,
ist davon tats�chlich nichts mehr zu sehen.

Sub test()
Dim myCnn As Connection
Dim cmd As New Command

Set myCnn = ThisConnect [COLOR="Green"]' Connection Object setzen [/COLOR]
MsgBox "" & myCnn.ConnectionString

cmd.ActiveConnection = myCnn.ConnectionString
[COLOR="Green"]'myCnn.Open
[/COLOR]
End Sub

Public Function ThisConnect() As Connection

Dim strCnn As String
Dim objCnn As Connection


strCnn = "Provider=OraOLEDB.Oracle;" & _
                " Data Source=DBTest;" & _
                " User Id=User1;" & _
                " Password=User1"


Set objCnn = CreateObject("ADODB.Connection")
    objCnn.Open strCnn
    
Set ThisConnect= objCnn

    If Not objCnn Is Nothing Then Set objCnn = Nothing
    Exit Function



End Function

[O. Helper]

Hallo Herrmann,

das das Passwort nicht zurückgegeben wird, ist völlig normal; wäre andernfalls ja auch eine echte Sicherheitslücke, wenn man das wieder auslesen könnte.

Bei mir funktioniert es aber trotzdem, das hier
?myCnn.State = adStateOpen
liefert mir TRUE.
Also liegt das Problem wo anders.

[Herrmann]

Ja, - lieber Olaf, es wird wohl so sein.
Aber für diese Schlussfolgerung brauch ich solch ein Forum nicht.

Mein "Text", ist eine Beschreibung dessen, was passiert und keine Behauptung