Function Connect()
        ' ****************************
        ' *** Connect DB
        ' ****************************
 
        ' Instanzierung des Objekts
        oConn = New ADODB.Connection()
        ' Recordset erstellen
        oRS = New ADODB.Recordset()
 
        Try
            oConn.Open("Provider=MSDASQL.1;Password=xxxxxx;Persist Security" & _
              "Info=True;User ID=xxxxxx;Extended Properties=" & "DRIVER={MySQL" & _
              "ODBC 3.51" & _
              "Driver};DESC=;DATABASE=xxxxxx;SERVER=www.xxxxxx.de;UID=root;PAS" & _
              "WORD=xxxxxx;PORT=;OPTION=16387;STMT=;")
        Catch
            MsgBox("Entweder bist Du nicht mit dem Internet verbunden, oder der" & _
              "Server ist gerade ausgefallen ;-)", MsgBoxStyle.Information, "Oh" & _
              "Menno ....")
            End
        End Try
        Return oRS
    End Function

Connect()
 
 
        oRS.Open("SELECT WAS AUCH IMMER", oConn)
 
        ' Hier evtl. Variablen füllen ....
 
        oConn.Close()
        oConn = Nothing
        oRS = Nothing