用ADO绑定 记录集Dim strSQL As StringDim rs As new ADODB.RecordSetstrSQL = "sql语句 "rs.Open strSQL,CurrentProject.Connection,1,3me.text1=rs.(字段)大致这样。自己去扩展了