perseverence seems to have got me through in the end managed to produce the following, seems like a clunky way of doing things though any advice on neatening it up a bit?
Option Compare Database
Option Explicit
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
Dim db As...