Sub aa()
Dim sqlstr As String
Dim rs As New ADODB.Recordset
sqlstr = "SELECT 准考证号,考点名称,姓名,总分,'计算机应用基础' as mm FROM dbo_1 " & _
" union " & _
"SELECT 准考证号,考点名称,姓名,总分,'计算机应用基础' as mm FROM dbo_2 " & _
" union " & _
"SELECT 准考证号,考点名称,姓名,总分,'计算机应用基础' as mm FROM dbo_4 " & _
" union " & _
"SELECT 准考证号,考点名称,姓名,总分,'会计电算化' as mm FROM dbo_3 "
rs.CursorLocation = adUseClient
Set rs = getrs(sqlstr)
rs.sort = "mm ASC"