Solo Valores alfanumericos

tema enviado por MutantSoft en Visual Basic 6.0
tema iniciado el 19/08/2008

Select Case Text1
Case "CLIENTE"
If Text2 <> "" Then
Adodc1.Recordset.Filter = "CLIENTE like '" + Text2 + "*'"

Else
Adodc1.Recordset.Filter = "CLIENTE<>" & "00"

End If
End Select

Como le digo al text2 que solo admita valores alfanumericos.