Dim Übergeben As String
Dim y As String
Dim oCon As New ADODB.Connection
Dim oRecordset As ADODB.Recordset
Dim z As String
Dim Krit As String
Dim u As String
    z = cboFirma
    Krit = "Name like '" & z & "%'"
    With oCon
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open "\\pdc\company\l-office\loffice\daten\Info.mdb"
        .CursorLocation = adUseClient
    End With
    Set oRecordset = New ADODB.Recordset
    oRecordset.Open "Select XYZ_FirmenID from XYZ where " & Krit, oCon, _
      adOpenDynamic, adLockOptimistic
    With oRecordset
        .MoveFirst
        If Not IsNull(oRecordset.Fields("XYZ_FirmenID").Value) Then
            Text1.text = oRecordset.Fields("XYZ_FirmenID").Value
        End If
        oRecordset.MoveNext
    End With
    Set oCon = Nothing
    Set oRecordset = Nothing