我的初学者,

Question

1.你可以在模块中用Public 变量
  在窗体中都可以调用了Public Rs As New ADODB.Recordset
    With Rs
        If .State = adStateOpen Then
            .Close
        End If
        .ActiveConnection = adoCN
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockBatchOptimistic
        .Source = "SELECT * FROM dm_client "
        .Open
    End With2.保存
     Rs.update
     Rs.updateBatch

Answer 1

楼上的楼上对,可以在模块中定义为公共的来实现.