Code:
dim name as string dim str as string dim rs as recordset dim rs as new adodb.recordset str="Select name from table1 where name='" & txtname.text &"'" rs.open str,db, adopenstatic , adlockoptimistic name=rs.field(1).value if name=txtname then exit sub else rs.addnew end if
Leave a comment: