Listing 3.2. Declaring database and data table variables.

Private Sub Form_Load()
`
` creating Dynaset-type recordsets
`
Dim db As Database ` the database object
Dim rs As Recordset ` the recordset object
`
` create local variables
Dim strDBName As String
Dim strRSName As String
`
` initialize the variables
strDBName = App.Path & "\..\data\books5.mdb"
strRSName = "Titles"
`
End Sub