求VB高手，帮我看看程序哪里出错了，万分感谢！！

我的 一个工资管理程序，删除，修改和查询都实现了，可是唯有添加工能运行不了，能不能请高手帮我改一下程序，万分感谢！！！
Private Sub Command1_Click()
Dim sql
sql = "insert into gongzi(gonghao,xinmin,nianfeng,yuefen,zgz,flbz,bxbz,shuiwu,baoxian,) values('" & Trim(gonghao.Text) & "','" & Trim(xinmin.Text) & "','" & Trim(nianfeng.Text) & "','" & Trim(yuefen.Text) & "','" & Trim(zgz.Text) & "','" & Trim(flbz.Text) & "','" & Trim(bxbz.Text) & "','" & Trim(shuiwu.Text) & "','" & Trim(baoxian.Text) & "') "
mycon.Open
mycon.Execute sql
mycon.Close
MsgBox "添加成功", , "系统提示"
End Sub
每次运行都会出现一下提示框，我看了半天也么有改出来哪里出错