Woka your the best ** Resolved **ADO recordset BOF/EOF

[holly]

Hi

I have a routine which validates and prints a user input but if
they go back lets say they entered the wrong info I receive and
error when I try to refresh the results.

lets say example
user inputs id - 125336
and a shift as 5

the results printed are like so
5 125336
Harris

but lets say they entered the wrong shift so they press the back button and reenter the shift this is were I am reciving the error
my code will not let me repaint new input...

Sub cmdbutshft_click(index As Integer)
   'Remember that the first CommandButton in the array is
'ALWAYS 0. commandbutton array to determine the packers shift
    Dim intCmd As Integer
       If index = 0 Then
          Strshiftletter = Trim$("1")
        ElseIf index = 1 Then
         Strshiftletter = Trim$("5")
        ElseIf index = 2 Then
         Strshiftletter = Trim$("3")
        ElseIf index = 3 Then
         Strshiftletter = Trim$("4")
    End If
     
     Select Case m_Intwndprogress
        
        Case Is = 10
                txtinformation.Text = Strshiftletter
                progressbar_login
          
            If Not ObjRSuser.EOF Then
                PicResultsOperator.Print "Packers_ID"; vbCrLf; Strshiftletter; ObjRSuser.GetString(, , vbCrLf)
                txtinformation.SetFocus
                txtinformation.maxlength = 11
                txtinformation = ""
            End If
            If ObjRSuser.BOF = False Or True Then
            PicResultsOperator.Print "Packers_ID"; vbCrLf; Strshiftletter; ObjRSuser.GetString(, , vbCrLf)
                  txtinformation.SetFocus
                txtinformation.maxlength = 11
                txtinformation = ""
        End If
            
   End Select
   For intCmd = 0 To 3 ' Disable caption for each cmd button
            cmdbutshft(intCmd).Caption = ""
             Strshiftletter = vbNullString
   Next intCmd
      Lbltext.Caption = Trim$("Please Enter/code")
       validate_product_code
 End Sub

Thanks