VB6中把access数据库中的数据写到字典里，怎么放不进去？

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