代码重复书写问题

Question

把代码放到一个过程或方法里面，把表或字段和操作方式等可变的因数作为参数传入就可以了

Answer 1

做成函数，每次调用，
尽供参考。
^_^Private Function rsSQL(ByVal strSQL As String, Optional ByVal bReadOnly As Boolean = True) As ADODB.Recordset
Dim rsData As ADODB.Recordset
On Error Resume NextErr.Clear
Set rsData = New ADODB.Recordset
With rsData
    .ActiveConnection = connDB 'ADO.Connection
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = IIf(bReadOnly, adLockReadOnly, adLockPessimistic)
    .Source = strSQL
    .Open
    If (Err.Number <> 0) Then
        Set rsSQL = Nothing
        Set rsData = Nothing
'        Debug.Print Err.Number & vbCrLf & Err.Description & vbCrLf + Err.Source
    Else
        If bReadOnly Then
            .ActiveConnection = Nothing
        ElseIf Not (.BOF And .EOF) Then
            .Fields(0) = .Fields(0) & ""
        End If
        Set rsSQL = rsData
        Set rsData = Nothing
    End If
End WithEnd Function