从表格无法添加数据到数据库

这段时间在做excle 与access的连接,总是不成功,也不知道那段代码不对,每次都是报红色字体处错误! 希望高手指点下..谢谢!

Private Sub CommandButton1_Click()
'作用：保存数据到后台数据库

On Error GoTo errmsg

If CZ = 0 Then
MsgBox "该数据已保存过了!无法再次保存."
Exit Sub
End If

If Range("b5") = "" Then
MsgBox "单位名称未填"
Exit Sub
End If

If Range("a7") = "" Or Range("b7") = "" Or Range("c7") = "" Or Range("d7") = "" Then
MsgBox "至少要填写第1条明细！"
Exit Sub
End If

If Yhm = "" Then
MsgBox "用户名为空,请登陆后再保存!"
Sheet1.Label1.Caption = "用户名:    "
Exit Sub
End If

  
'打开数据库
 Open_Database
  
    Dim sq1 As String
    sq1 = "select * from 销售表 where 1=1"
    RST.Open sq1, CNN, adOpenKeyset, adLockOptimistic
   
    
    For i = 7 To 999
   
    If Range("a" & i) = "合计" Then
    GoTo here
    End If
   
    If Range("f" & i) <> 0 Then
   
    RST.AddNew
    RST.Fields("日期") = Date
    RST.Fields("单位名称") = Range("b5")
    RST.Fields("物料编号 ") = Range("a" & i)
    RST.Fields("单位") = Range("b" & i)
    RST.Fields("数量") = Range("c" & i)
    RST.Fields("产品批号") = Range("d" & i)
    RST.Fields("小计") = Range("e" & i)
    RST.Fields("备注") = Range("f" & i)
    RST.Fields("登记者") = Yhm
    RST.Update
   
    End If
   
    Next i
   
here:
    MsgBox "保存成功!"
   
    
'关闭数据库
Close_Database
   
'将CZ仍归零，说明已保存过数据了，不可再次保存数据
CZ = 0
Me.Label2 = "请重置后再保存"
Me.Label2.ForeColor = RGB(155, 55, 25)
Exit Sub
   
errmsg:
MsgBox "保存失败!请检查单元格数据。必要时，需要在后台数据库中直接删除错误数据！"
Close_Database
CZ = 0
Me.Label2 = "请重置后再保存"
Me.Label2.ForeColor = RGB(155, 55, 25)
End Sub

点击下载此附件