On Error GoTo CnEh
With rdoCn
    .Connect = "UID=;PWD=;Database=WorkDB;" _
        & "Server=SEQUEL;Driver={SQL Server}" _
        & "DSN='';"
    .LoginTimeout = 5
	 .CursorDriver = rdUseODBC
    .EstablishConnection rdDriverNoPrompt, True
End With
AbandonCn:
Exit Sub
 
CnEh:
Dim er As rdoError
Dim msg as string
    Msg = "Fehler aufgetreten beim " _
	 & "Versuch, eine Verbindung zu öffnen: " _
	 & Err & " - " & Error & VbCr
    For Each er In rdoErrors
        Msg = Msg & er.Description  _
			& ":" & er.Number & VbCr
    Next er
    Resume AbandonCn
End Sub