保存的vba代码如下，其中lbID和ygID是组合框，请指教：
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 [tblbxmx] WHERE [mxID]=" & SQLText(Me![mxID])
Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
If rst.EOF Then
rst.AddNew
rst![mxID] = GetAutoNumber("报销编号")
End If
rst![bxrq] = Me![bxrq]
rst![lbID] = Me![lbID]
rst![ygID] = Me![ygID]
rst![bxje] = Me![bxje]
rst![bxzy] = Me![bxzy]
rst![czsj] = Me![czsj]
rst.Update
Me![mxID] = rst![mxID]
rst.Close
Form_frmbxmx.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
