Public Sel As ADODB.Recordset
Public cnDatenbank
Public Recordset_xy As ADODB.Recordset
 
Set cnDatenbank = New ADODB.Connection
cnDatenbank.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=" & Start.Combo2.Text & ";" _
                & "DATABASE=" & Start.Combo1.Text & ";" _
                & "UID=" & Start.Text3.Text & ";" _
                & "Password=" & Start.Text4.Text & ";" _
                & "OPTION=16384"
 
cnDatenbank.CursorLocation = adUseClient
cnDatenbank.Open
 
Set Recordset_xy = New ADODB.Recordset
Auswahl ("SELECT * FROM Tabelle_ ORDER BY Spalte_1")
Set Recordset_xy = Sel
' usw.

mit freundlichen Grüßen
Sven