Public Sub Pers_öffnen()
 
    Call DBName(db)
 
    Set conPers = New ADODB.Connection
 
        With conPers
            .Provider = "Microsoft.jet.oledb.4.0"
            .ConnectionString = "data source = '" & db & "'"
            .Open
        End With
 
    Set recsetPers = New ADODB.Recordset
        With recsetPers
            .ActiveConnection = conPers
            .CursorType = adOpenKeyset
            .LockType = adLockOptimistic
            .CursorLocation = adUseClient
            .Open "select Personal.Pid, [Personal.Name] & ' , ' &" & _
              "[Personal.Vorname] AS Namecompl FROM Personal order by Name," & _
              "Vorname;"
        End With
 
        With DataGrid1
            Set .DataSource = recsetPers
        End With
End Sub