好吧，先建一个公共模块，内容如下：
Public Function exesql(ByVal sql As String) As ADODB.Recordset sql = Trim(sql) Set conn = New ADODB.Connection Set rst = New ADODB.Recordset conn.ConnectionString = "Driver={sql server};server=sql服务器名称;uid=用户名;pwd=密码;database=数据库" conn.Open Set rst.ActiveConnection = conn rst.LockType = adLockOptimistic rst.CursorType = adOpenKeyset rst.Open sql Set exesql = rst Set rst = Nothing Set conn = NothingEnd Function
然后在需要调用数据库的窗体里放置如下语句：
Dim mrc As ADODB.Recordset
dim txtsql as string
txtsql=sql语句
Set mrc= exesql(txtsql)
OK,一个包含记录集的mrc‘对象’就建立了！
好吧，我承认这个在很多高手的眼中简直不值得一提，但在我这种VB代码体力劳动者身份的人心中，这个可是真正节省了不少的时间。欢迎高手提出更简便高明的方法！
