输入资料后点击确定。搜索数据库，看有没有重复的。有就警告，无就写入数据库。
部分代码如下，现求一段代码，解决搜索数据库并返回。
数据库名：数据库
表名：资料
数据库类型：Access
工具：VB2005
Private Sub qdButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qdButton.Click
'读取界面输入
Dim lxr, dh, cz, Email As String
lxr = 联系人TextBox.Text
dh = 联系电话TextBox.Text
cz = 联系传真TextBox.Text
Email = E_mailTextBox.Text
If lxr <> "" Then
'查询联系人是否存在
Dim ReturnValue As String
'
'求这段代码
'
'
If ReturnValue = lxr Then
MsgBox("重复的姓名，请重新输入！", MsgBoxStyle.Exclamation Or MsgBoxStyle.ApplicationModal, "警告")
联系人TextBox.Text = ""
联系人TextBox.Focus()
Exit Sub
Else
' Create a new row.
Dim AddNew As 数据库DataSet.资料Row = 数据库DataSet.资料.New资料Row()
AddNew.联系人 = lxr
AddNew.联系电话 = dh
AddNew.联系传真 = cz
AddNew._E_mail = Email
'Add the row to the table
Me.数据库DataSet.资料.Rows.Add(AddNew)
' Save the new row to the database
Me.客户资料TableAdapter.Update(Me.数据库DataSet.资料)
End If
Else
MsgBox("无效的姓名，请重新输入！", MsgBoxStyle.Exclamation Or MsgBoxStyle.ApplicationModal, "警告")
联系人TextBox.Focus()
Exit Sub
End If
Me.Close()
End Sub
