Private Sub Command1_Click()
'添加一个联系人
Dim adors As New Recordset
Dim strSQL As String
adors.ActiveConnection = ADOcn
strSQL = "select * from phone where 姓名='" + Text1.Text + "'" '这句会出错,但取消后面的姓名=就没问题,这是怎么了
adors.Open strSQL

If adors.EOF Then

strSQL = "insert into phone(联系人,QQ,手机,座机,出生日期)"
strSQL = strSQL + "values('" + Text1 + "'," + "'" + Text2 + "'," + "'" + Text3 + "'," + "'" + Text4 + "'," + "'" + Text5 + "')"
ADOcn.Execute strSQL
Else
MsgBox "此用户已存在,不能新增！", vbOKOnly + vbCritical, "警告"
End If

'更新并关闭
frmPhone.MSFlexGrid1.Refresh
Unload Me
End Sub

我也不太清楚,以前学ASP和E的,对VB也是一窍不通...

[此贴子已经被作者于2006-10-21 22:00:51编辑过]

刚才我就想到了可能是字段写错了..但是我也是VB新手,不敢乱说,哈哈!!以后一起努力