SQL Verbindung beim Formular laden herstellen

rec.MoveFirst
rec.Find "Firmenname='" & UserForm5.ComboBox6.Text & "'"  
If (Not rec.EOF) Or (Not rec.BOF) Then
  UserForm5.TextBox37.Text = rec.Fields("PhoneNumber")  
Else
  UserForm5.TextBox37.Text = "Keine Tel-nummer vorhanden"  
End If

rec.Find "firmenname='" & ComboBox6.Text & "'"  

Private ConDB As ADODB.Connection 'im Klassenmodul verfügbare Connection  


Sub Start()
  Dim rec As ADODB.Recordset
  Set rec = New ADODB.Recordset
      'Einmaliges herstellen der Verbindung.  
    Set ConDB = New ADODB.Connection
    ConDB.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=localhost; DATABASE=1stbp_sender;USER=root;PASSWORD=root;"  
    rec.CursorLocation = adUseClient
    rec.Open "SELECT * FROM `table` ORDER BY `sender`.`CompName1` ", ConDB, adOpenForwardOnly, adLockReadOnly  
    rec.MoveFirst
    While Not rec.EOF
      UserForm5.ComboBox6.AddItem (rec.Fields(3))
      UserForm5.ComboBox8.AddItem (rec.Fields(2))
      rec.MoveNext
    Wend
    rec.Close
    Set rec = Nothing
    UserForm5.Show
End Sub

Private Sub ComboBox6_Change()
  Dim strBandNr As String, Zähler As Long, strSenderID As String
  Dim rec As ADODB.Recordset
  
    If VarVorhanden("EigenerMerker") = False Then  
      With Application.ActiveWorkbook.CustomDocumentProperties
        .Add Name:="EigenerMerker", _  
        LinkToContent:=False, _
        Type:=msoPropertyTypeNumber, _
        Value:=0
      End With
    End If
    Zähler = CLng(Application.ActiveWorkbook.CustomDocumentProperties("EigenerMerker").Value)  
    Zähler = Zähler + 1
    strBandNr = Left([ComboBox6], 3) & Year(Date) & CStr(Format(Zähler, "0000"))  
    TextBox28 = strBandNr
    Testbox37 = strSenderID
    
    Set rec = New ADODB.Recordset
    rec.CursorLocation = adUseClient
        'Bitte noch die WHERE Klausel anpassen-->Firmenname  
    rec.Open "SELECT * FROM `table ` WHERE Firmenname='" & ComboBox6 & "'", ConDB, adOpenForwardOnly, adLockReadOnly  
      
      'Wenn das Recordset nun ein (oder mehrere) Firmennamen beinhaltet Telefonnummer in die TextBox  
      'Ggfls. reagieren wenn mehrere identische Firmennamen, bleibt Dir überlassen  
    If rec.RecordCount >= 1 Then
          'Prüfen ob im Feld PhoneNo Daten vorhanden  
      If (rec.Fields("PhoneNo") <> "") And Not IsNull(rec.Fields("PhoneNo")) Then  
        TextBox39.Text = rec.Fields("PhoneNo")  
      End If
    Else  'Dürfte nicht eintreten da Firmenname(Combobox) ja aus gleicher Tabelle  
      TextBox39.Text = "Keine Tel-nummer vorhanden"  
    End If
    rec.Close
    Set rec = Nothing
End Sub