cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" + "Data Source = " + Path + "\yy.mdb;" + "Persist Security Info = False"
rs.Open "aa", cn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
Set d = CreateObject("scripting.dictionary")
Do While Not rs.EOF
d([color=#ff0000]rs.Fields("姓名")[/color]) = rs.Fields("电话") & "||" & rs.Fields("QQ")
rs.MoveNext
Loop
cn.Close

字典操作的时候不要省略掉value，否则字典的key是field对象而不是它的值。