excel vba query database
'VBA function to query an Access database. Returns and ADO recordset:
Function QuerySQL(sql$, dbFile$)
Dim cnx
Set cnx = CreateObject("ADODB.connection")
cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbFile
Set QuerySQL = CreateObject("ADODB.Recordset")
With QuerySQL
.CursorLocation = 3 'adUseClient
.CursorType = 1 'adOpenKeyset
.Open sql, cnx
End With
End Function
'---------------------------------------------------------------------
MsgBox QuerySQL("SELECT * from Titanic", "C:Ships.accdb").RecordCount