Dim objRS2,projectConn
Dim connDatabase
Set connDatabase = CreateObject("ADOCE.Connection.3.1")
projectConn="Provider=Microsoft.SQLSERVER.MOBILE.OLEDB.3.0; Data Source=\ResidentFlash\DB.sdf"
connDatabase.ConnectionString =projectConn
connDatabase.open
Set objRS2 = CreateObject("ADOCE.Recordset.3.1")
objRS2.Open "SELECT * FROM AA",connDatabase,1,1