VB Forum / General 2 / July 2006

I am struggling with a piece of code which leads to the error described
in the title of thiis message.  The code stops at "Public Function
TestRockDescriptionForUniqueness() As Boolean" in the second function
listed.   Anybody see a mistake(s)?

Duke

Private Function ValidData() As Boolean
   Dim strMessage As String
   If txtNewGemName = "" Then
       txtNewGemName.SetFocus
       strMessage = "You must enter the name of the new gem."
       ValidData = False
   Else
      If Not TestRockDescriptionForUniqueness Then
           ValidData = False
           MsgBox "The Add New Gem value is already taken",
vbExclamation, "Duplicate gem name"
      Else
           ValidData = True
       End If
   End If
End Function
=====
Public Function TestRockDescriptionForUniqueness() As Boolean
   Dim rs As Recordset
   Set rs = New Recordset
   rs = FindRockCodeTable
   TestRockDescriptionForUniqueness = True
   With rs
       Do Until .EOF
           If !RockDescription = txtAddNewGem Then
               TestRockDescriptionForUniqueness = False
           End If
       Loop
End Function

=========

Public Function FindRockCodeTable() As Recordset
   Set rsRockCodeTable = New Recordset
   rsRockCodeTable.Open "SELECT GemID, GemDesciption FROM RockCode"
   FindRockCodeTable = rsRockCodeTable
End Function