Public Function GetRemoteConnection( _
        Optional ByVal UserID As String, _
        Optional ByVal Password As String, _
        Optional ByVal Server As String, _
        Optional ByVal Port As String, _
        Optional ByVal Database As String, _
        Optional ByVal PersistSecurityInfo As Boolean) As ADODB.Connection
 
    Set GetRemoteConnection = New ADODB.Connection
 
    With GetRemoteConnection
        .Provider = "MSDASQL"
        .Mode = adModeShareDenyNone
        .CursorLocation = adUseClient
 
        If Len(Database) > 0 Then
            Database = ";database=" & Database
        End If
 
        .Properties("Extended Properties") = _
                "DRIVER={MySQL ODBC 5.1 Driver};" _
                & "UID=" & sUserID & ";" _
                & "PWD=" & sPassword & ";" _
                & "SERVER=" & sServer & ";" _
                & "PORT=" & sPort & ";" _
                & "OPTION=" & CStr(FLAG_FIELD_LENGTH Or FLAG_NO_PROMPT _
                        Or FLAG_NO_DEFAULT_CURSOR _
                        Or FLAG_NO_BIGINT _
                        Or FLAG_SAFE Or FLAG_MULTI_STATEMENTS) _
                & Database
        .Properties("Persist Security Info") = PersistSecurityInfo
    End With
End Function
 
 
Sub main()
    TagesDatum = Date
    sevTextBox.CurrencyText = " "
 
    sUserID = "root"
    sPassword = "mytravel"
    sServer = "localhost"
    sPort = "3308"
    sDatabase = "travel"
 
    Set oConn = GetRemoteConnection(sUserID, sPassword, sServer, sPort, _
      sDatabase)
 
    Call oConn.Open
 
    Performance.Show vbModal
End Sub

Option Explicit
Dim aRs As New ADODB.Recordset
Dim sSQL As String
 
Private Sub btnAbbruch_Click()
    aRs.Close
    Unload Me
End Sub
 
Private Sub btnLesen_Click()
    sSQL = "SELECT * FROM tblAdressen WHERE AdressNr = 8"
    aRs.CursorLocation = adUseClient
    aRs.Open sSQL, oConn, adOpenForwardOnly, adLockOptimistic
    If aRs.RecordCount > 0 Then
       sevAdressNr = aRs!AdressNr
       sevName = aRs!Nachname
       sevVorname = aRs!Vorname
       sevStrasse = aRs!Strasse
       sevOrt = aRs!Ort
    End If
End Sub
 
Private Sub Form_Load()
 
End Sub