mungkin @Masdad atau mas @Caton bisa menyempatkan waktu untuk memberikan solusi mengenai masalah ini. silahkan ;)

@faizal mas @manweljs_ mungkin juga bisa menyempatkan waktu untuk memberi sarannya hehehe

teorinya sih saya sedikit paham, namun saya tidak terbiasa dengan SQL, beliau2 yang saya sebutkan diatas dan juga @faizal menurut saya jauh lebih paham dan terbiasa dengan SQL ;)

semoga video ini bisa membantu
How to connect excel to sql server by VBA Code, fix ADODB

Sub subCheckUser()
Dim strSQL As String, sSqlSvr  As String, sDtBase As String, sSqlUser As String, sSqlPsw  As String
Dim sUID As String, sPwd As String

sSqlSvr = "nama_server"
sDtBase = "DB_SISWA"
sSqlUser = "admin"
sSqlPsw = "admin"

sUID = "user01"
sPwd = "1234"

    'Declare variables'
    Set objMyConn = CreateObject("ADODB.Connection")
    Set objMyRecordset = CreateObject("ADODB.Recordset")
    Set objCmd = CreateObject("ADODB.Command")


    'Open Connection'
    objMyConn.ConnectionString = _
        "Provider=SQLOLEDB;Data Source=" & sSqlSvr & ";Initial Catalog=" & sDtBase & ";User ID=" & sSqlUser & ";Password=" & sSqlPsw & ";"
    objMyConn.Open

    strSQL = "Select user_id from tbl_m_user where user_id = '" & sUID & "' and password = '" & sPwd & "'"
    
    Set objMyRecordset.ActiveConnection = objMyConn
    objMyRecordset.Open strSQL
    
    vIsExist = 0
            
    'Cek data hasil query
    Do While objMyRecordset.EOF = False
        'untuk cek field user_id apakah null atau tidak
        For Each field In objMyRecordset.Fields
           If field.Name = "user_id" Then
              vIsExist = 1
          Exit For
           Else
              vIsExist = 0
           End If
        Next
    objMyRecordset.MoveNext
    Loop

    If vIsExist = 0 Then
    MsgBox "user tidak terdaftar atau pwd salah"
    End If
End Sub

semoga bermanfaat