Sub QuerySheet()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strFile As String, strCon As String, strSQL As String
    Dim paramDate As String
    
    strFile = ThisWorkbook.FullName
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cn.Open strCon
    
    paramDate = Worksheets("Лист2").Range("A1")
    
    strSQL = "SELECT * FROM [Лист1$A1:B5] WHERE [Дата]>=CDate('" & paramDate & "')"
    
    rs.Open strSQL, cn
    
    Debug.Print rs.GetString
End Sub