对比两个资料表有何不同.并把不同记录显示出来(vb)

同意一楼的一点观点.但你这样只能找到a和b表中都存在学号：y的不同记录．如果学号：y只在a中有而在b中没膛或是只在b中有却在a中没有呢．这样的查找就有点牵强了．

方法一：
Private Sub check() ’定义一个检查
dim reca as new abodb.recordset ’定义一个记录集
dim recb as new abodb.recordset ’同上
dim stra ,strb as string
dim i,j as long
str="select * from a"
reca.open stra,g_conn,adopenstatic,adlockreadonly
if reca.eof then
msgbox "a表中无记录！”
exit sub
end if
reca.movefirst
for i=1 to reca.recordcount
strb="select * from b where 学号='" & reca.Fields("学号”）＆ ”’”
recb.open strb,g_conn,adopenstatic,adlockreadonly
if recb.eof then
List1.AddItem reca.Fields("学号”）
List1.AddItem reca.Fields("姓名”）
List1.AddItem reca.Fields("班级”）
List1.AddItem reca.Fields("成绩”）
List1.AddItem ” ”
end if
If Not (recb.EOF) Then
recb.movefirst
if reca.fields("