Değerli üstadlar merhaba,
Örnek alabileceğim yetkilendirilmiş Excel userform login örneği varmıdır, Accsess bağlantılı.
yada eklediğim dosyaya yardım rica ediyorum.

Sub Label2_Click()
Dim baglan As Object, rs As Object
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set baglan = CreateObject("adodb.connection")
baglan.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database.accdb;Persist Security Info=False;"
If baglan.State <> adStateClosed Then
baglan.Close
Exit Sub
End If
baglan.Open
rs.Open "select * from [Users] where User_Name ='" & TextBox1.Value & "' and Password ='" & TextBox2.Value & "'", baglan, 1, 1
If rs.RecordCount > 0 Then MsgBox "Basarili" Else MsgBox "Basarisiz"
rs.Close
baglan.Close
Set rs = Nothing
Set baglan = Nothing
End Sub