Public Sub Auswahl(SQL As String)
    Set Sel = New ADODB.Recordset
    With Sel
        'Öffnen der Tabelle mit dem angegebenen SQL-String
        .Open SQL, cnDatenbank, adOpenDynamic, adLockOptimistic
    End With
End Sub

Auswahl "SELECT * FROM telefonliste" 
 
txtInlandEK.Text = Sel.Fields(1).Value 
txtInlandVK.Text = Sel.Fields(2).Value 
txtAuslandEK.Text = Sel.Fields(3).Value 
txtAuslandVK.Text = Sel.Fields(4).Value 
txtMobilEK.Text = Sel.Fields(5).Value 
txtMobilVK.Text = Sel.Fields(6).Value