Question

VB 6.0 (有代码)判断数据库中有无重复数据。急

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb" & ";Mode=ReadWrite;Persist Security Info=False"
Conn.Open Connstr

Conn.Execute "Select AdminUser from Admin Where AdminUser='" & User & "' "

If Not Rs.EOF Then
Rs.Clone
MsgBox "该用户名已存在，请重新输入！", vbExclamation + vbOKOnly, "提示！"
Admin_Name.Text = ""
Admin_Name.SetFocus
Else
Dim StrSql As String
StrSql = "insert into Admin (AdminUser,AdminPassWord,AdminSex,AdminMobileTel,AdminHomeTel,AdminAddress) Values ('" & Admin_Name.Text & "','" & Admin_PassWord.Text & "','" & Admin_Sex.Text & "','" & Admin_MobileTel.Text & "','" & Admin_HomeTel.Text & "','" & Admin_Address.Text & "')"
Conn.Execute StrSql
Conn.Close
Rs.Open
MsgBox "用户添加成功，请返回！", vbExclamation + vbOKOnly, "提示！"
Admin_Name.Text = ""
Admin_PassWord.Text = ""
Admin_RegPassWord = ""
Admin_MobileTel.Text = ""
Admin_HomeTel.Text = ""
Admin_Address.Text = ""
DgdAdminNew.Refresh
End If

Answer 1

我狂晕！
RS你都没有赋值就进行判断了？？