Sub Retrieve_Data_From_SSCE_In_VBA()
 
'Name of the SSCE database.
Const C_stDBName = "Test.flex"
 
'The SQL Expression to be used.
Const C_stSQL = "select Firstname, Lastname from Shooters order by Lastname, Firstname;"
 
Dim stPath As String
Dim stConnection As String
 
Dim ADODBcnt As New ADODB.Connection
Dim ADODBrst As New ADODB.Recordset
Dim ADODBfld As ADODB.Field
 
'Path to the SSCE database.
stPath = "D:\DISAG_Datenbanken\"
 
'Connection string.
stConnection = "Provider=Microsoft.SQLSERVER.CE.OLEDB.4.0;" & _
 "Data Source=" & stPath & C_stDBName & ";"
 
'Open the connection to the databas.
ADODBcnt.Open stConnection

Set ADODBrst = ADODBcnt.Execute(C_stSQL)
Debug.Print ADODBrst.Fields.Count
 
Do Until ADODBrst.EOF
    Debug.Print ADODBrst.Fields(0).Value & " " & ADODBrst.Fields(1).Value
    ADODBrst.MoveNext
Loop
 
'Close down the connection.
ADODBrst.Close
ADODBcnt.Close
 
'Release objects from memory.
Set ADODBrst = Nothing
Set ADODBcnt = Nothing
 
End Sub