Kod:
Dim baglan As New Connection
Dim rs As New Recordset
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
rs.Open "SELECT COUNT(*) FROM personel where id", baglan, adOpenKeyset, adLockPessimistic
Me.Label1.Caption = rs.Fields(0)
rs.Close
baglan.Close