求助一段随机生成字符与数据库数据验证的循环代码【已解决】 - 编程论坛

目的：随机生成一段代码，然后与数据库中数据对比，如果数据库中有就重新生成，如果不重复就写入数据库。

我是这样写的

程序代码：

连接数据库省略。。。
...
do
str=Randstr(5)
sql="select * from [Mole_str] where str1='"&str&"'"
rs.open sql,conn,1,3
Loop while Not rs.bof or Not rs.eof
rs.AddNew
rs("str1")=str
...
...

Randstr(5)是一个生成随机字符串的函数
如果没重复能正常执行写入数据库
如果字符串在数据库中存在的话就会提示

ADODB.Recordset 错误 '800a0e79'
对象打开时，不允许操作。

但是不打开怎么能比较是不是存在在数据库中啊？

不知道这个重新生成的代码该怎么循环，请高手帮帮我啊。

[ 本帖最后由 lovemole 于 2011-1-22 00:42 编辑 ]