Function ConnectRst(Sql As String) As ADODB.Recordset 'Connect Rst
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ActiveWorkbook.FullName ' ThisWorkbook.FullName
Rst.Open Sql, Cnn, adOpenStatic
Set ConnectRst = Rst
End Function