Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
Private Sub Report_Open(Cancel As Integer) Dim MyDb As DAO.Database, MyQry As QueryDef, MyRS As DAO.Recordset Set MyDb = CurrentDb() Set MyQry = MyDb.CreateQueryDef("") MyQry.Connect = "ODBC;DSN=DSNName;DATABASE=DBName" MyQry.SQL = "spApplicantFlow '05/01/2007', '04/30/2008'" MyQry.ReturnsRecords = True Set MyRS = MyQry.OpenRecordset() MyRS.MoveFirst Debug.Print MyRS!BranchName MyQry.Close MyRS.Close MyDb.Close End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.