请问下面代码吗里有错呢？
Private Sub btnSave_Click()
On Error GoTo ErrorHandler
Dim strWhere As String
Dim strSQL As String
Dim cnn As Object 'ADODB.Connection
Dim rst As Object 'ADODB.Recordset
If Not CheckRequired(Me) Then Exit Sub
If Not CheckTextLength(Me) Then Exit Sub
Set cnn = CurrentProject.Connection
strSQL = "SELECT * FROM [tblgsbz] WHERE [GSBZNO]=" & SQLText(Me![GSBZNO])
Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
If rst.EOF Then
rst.AddNew
rst![GSBZNO] = GetAutoNumber("报价单编码")
End If
rst![ZT] = Me![ZT]
rst![GYSZC] = Me![GYSZC]
rst![CPBM] = Me![CPBM]
rst![CPMC] = Me![CPMC]
rst![GS] = Me![GS]
rst![GSDZ] = Me![GSDZ]
rst![GSBZDW] = Me![GSBZDW]
rst![GSBZTJ] = Me![GSBZTJ]
rst![GSBZPCSZ] = Me![GSBZPCSZ]
rst![GSBZBF] = Me![GSBZBF]
rst![YSZD] = Me![YSZD]
rst![YSYS] = Me![YSYS]
rst![YSFW] = Me![YSFW]
rst![YSFY] = Me![YSFY]
rst![BZBZ] = Me![BZBZ]
rst![BZDATE] = Date '= Me![BZDATE]
rst![BZPZ] = Me![BZPZ]
rst![BZPZSJ] = Me![BZPZSJ]
rst![BZBH] = Me![BZBH]
rst![BZBHYY] = Me![BZBHYY]
rst![GSSF1] = Me![GSSF1]
rst![GSSF2] = Me![GSSF2]
rst![GSSF3] = Me![GSSF3]
rst![GSSF4] = Me![GSSF4]
rst![GSSF5] = Me![GSSF5]
rst![GSBY1] = Me![GSBY1]
rst![GSBY2] = Me![GSBY2]
rst![GSBY3] = Me![GSBY3]
rst![GSBY4] = Me![GSBY4]
rst![GSBY5] = Me![GSBY5]
rst![GSBZZLSJ] = Now() '= Me![GSBZZLSJ]
rst.Update
Me![GSBZNO] = rst![GSBZNO]
rst.Close
Form_frmgsbz.RefreshDataList
MsgBoxEx LoadString("Saved Successfully."), vbInformation
If Me.DataEntry Then
ClearControlValues Me
Else
DoCmd.Close acForm, Me.Name, acSaveNo
End If
ExitHere:
Set rst = Nothing
Set cnn = Nothing
Exit Sub
ErrorHandler:
RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
Resume ExitHere
End Sub
