If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Then
MsgBox "请把资料填写完整,谢谢!!"
Else
Adodc1.RecordSource = "select 公司名称 from 公司表 where 公司名称 ='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.BOF And Adodc1.Recordset.EOF Then
Adodc1.RecordSource = "select * from 公司表;insert into 公司表 (公司名称,联系人,联系电话,公司地址,传真号码,备注) values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "')"
Adodc1.Refresh
MsgBox "注册成功,欢迎加入~!!"
Else
MsgBox "您好!你填写的公司名称已经存在数据库内,若有其他问题请与工作人员联系!"
End If
End If