'引用了ADO2.1
Dim strConn As String
Dim strSQL As String
Dim rst As ADODB.Recordset
strConn = "连接语句"
strSQL = "SQL语句"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient '本地游标
rst.Open strSQL, strConn ', adOpenDynamic, adLockOptimistic
Set Me.userGroup.Recordset = rst 'usergroup是组合框
rst.Close
Set rst = Nothing