Excel Forum

Code: Select all

Function SQLSelect(ByVal strSql As String) As ADODB.Recordset
    Dim conn As New ADODB.Connection
    Dim rst As New ADODB.Recordset

        If conn.State = 0 Then
            conn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & ThisWorkbook.FullName & " ;IMEX=1;"
                   If conn.State = 1 Then
                      rst.Open strSql, conn, adOpenStatic, adLockReadOnly
                      rst.Filter = ""
                      Set SQLSelect = rst
                   End If
        Else
          rst.Close
          Set rst = Nothing
        
        End If
 
End Function