Option Explicit


Dim sSelector As String
Dim db As Database
Dim qd As QueryDef
Dim ds As Recordset