so this is my code below it works just fine when selecting from a table :
Private Sub cmdStart_Click() Dim strSql1 As String Dim strSql2 As String Dim strSql3