مشکل با این شرط

[dezchilds]

سلام من تو این شرط وجود شماره شناسنامه همسان رو تو دیتابیس جست و جو میکنم
If Adodc1.Recordset.Fields("shomareshenasname") = Val(Text6) Then
MsgBox ("shomare shenasname vojod darad")
Else
ولی یه مشکلی هست اگه یه شماره شناسنامه رو با زبان انگلیسی ثبت کنند و همون رو با فارسی ثبت کنند خطا نمیده ولی اگه دوبار با فارسی یا انگلیسی ثبت بشه خطا میده منظورم زبان کیبورد هست . چیکار کنم ؟
کد رو به این صورت هم تغیر دادم ولی بازم جواب نداد
If Adodc1.Recordset.Fields("shomareshenasname") = Text6.text Then
MsgBox ("shomare shenasname vojod darad")
Else
و اینطوری
If Adodc1.Recordset.Fields("shomareshenasname") = Val(Text6.text) Then
MsgBox ("shomare shenasname vojod darad")
Else

[mohsen.j1990]

az in code estefaade konid

private function ExistRec(FieldValue as string)as boolean
dim conn as new connection
dim rs as new recordset
conn.open "ConnectionString"
rs.open("Select * From Table1 Where Field1='" & FieldValue & "'" ,Conn,3,3)
if rs.recordcount>0 then
existrec=true
else
existrec=false

end function