Runtime error 3021 in VB6

See more:

VB6

I am working in VB6 and getting 3021 runtime error and i have given my code below when i running the code i'm able to view the data and with that getting 3021 error at nme=rs!NameofTest.pls help me.

What I have tried:

Private Sub view_Click()

    Dim name, nme As String
    nme = rs!NameofTest
    name = CInt("&H" & nme)
    Select Case name
        Case name
                If name = 1 Then
                    If Text19.Text = glucose.Caption Then
                        display
                    End If
                ElseIf name = 2 Then
                    If Text19.Text = chol1.Caption Then
                        display
                    End If
                ElseIf name = 3 Then
                    If Text19.Text = bun1.Caption Then
                        display
                    End If
                ElseIf name = 4 Then
                    If Text19.Text = crtn1.Caption Then
                        display
                    End If
                ElseIf name = 5 Then
                    If Text19.Text = urea1.Caption Then
                        display
                    End If
                End If
         Case Else:
                MsgBox "Record not Found..!!"
                Text19.Text = ""
        End Select
        
        If rs.EOF = False Or rs.BOF = False Then
            
        Do Until rs.EOF = True Or rs.BOF = True
            rs.update
            rs.MoveNext
            view_Click
        Loop
        Else
            MsgBox "no Matching Record"
        End If
        
End Sub