Invalid Procedure or Call error

[Samibouni]

Hello

I've set up an address book in VB. It has a control array of command buttons labeled a-z, that move the recordset to the first surname beginning with the letter on the button. This enables people to move quickly through thousands of addresses.

This was working well, Until I had to add clients with no surnames (businesses, for example). However, when this happens, I get an Invalid procedure or call arguement.

My code is below.

Can anyone suggest a quick fix?

Private Sub Command1_Click(Index As Integer)
 
rec3ClientDetails.MoveFirst
 
Do Until Asc(Left(rec3ClientDetails("Surname"), 1)) = Index + 65
   If Asc(Left(rec3ClientDetails("Surname"), 1)) > Index + 65 Then Stop
     
     rec3ClientDetails.MoveNext
      
Loop

Thanks

Sam