sql vba

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"

sql = "SELECT " & _
     "COUNT(*) AS TotalCount " & _
     "FROM [Sheet1$] " & _
     "WHERE [Column1] = 'Value1' " & _
     "AND [Column2] = 'Value2' " & _
     "AND [Column3] = 'Value3'"

Set rs = conn.Execute(sql)

' 결과 출력
Debug.Print "Total Count: " & rs.Fields("TotalCount").Value

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing