set con=createobject("adodb.connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdb"
set rs=createobject("adodb.recordset")
sql="select * from tblcustomer where Acctnum='&isAccount'"
rs.open sql,con
If ( Not Rs.eof ) then
Rs.MoveFirst
msgbox("The Account Number " &Rs(0)&" is added successfull")
else msgbox("The account is not find")
End If
rs.close
set rs=nothing
con.close
set con=nothing