请问这个用VB往SQL添加信息的代码哪里错了？

Private Sub cmdCancle_Click()
Unload Me

End Sub

Private Sub cmdOK_Click()
Dim txtsql As String
If txtNo.Text = "" Then
MsgBox "请输入ID", vbOKOnly + vbExclamation, "警告"
txtNo.SetFocus
Exit Sub
End If
If txtName.Text = "" Then
MsgBox "请输入名称", vbOKOnly + vbExclamation, "警告"
txtName.SetFocus
Exit Sub
End If
If txtPrice.Text = "" Then
MsgBox "请输入价格", vbOKOnly + vbExclamation, "警告"
txtPrice.SetFocus
Exit Sub
End If
If txtType.Text = "" Then
MsgBox "请输入类型", vbOKOnly + vbExclamation, "警告"
txtType.SetFocus
Exit Sub
End If
txtsql = "select*from goodsinfo where ID='" & Trim(txtNo.Text) & "'"
cmd.CommandText = txtsql
ser mrc = cmd.Execute
If mrc.EOF = False Then
MsgBox "ID重复，请重新输入", vbOKOnl

VB+sql添加一条记录 请问，怎么用VB添加状态栏啊？ vb如何添加信息到access数据库~? VB编程时用SQL语句如何向数据库添加数据 请问:VB和SQL是这样连接的? 这样实现数据的查询,添加,修改,删除等功能的 VB编程，SQL的数据库，如何实现，添加、修改、删除？ 如何用JBuilder添加信息到SQL里面 请问个sql添加列的问题? 怎么判断添加到数据库的信息重复 VB VB如何把信息添加到其他程序 高手进来