程序是让d等于data3表中的某一数字，再在data2中搜索与这个数字匹配的记录，程序如下(数据库为access)：
(假设其中的e=3)，但是运行后输出的是3个一样的值（该值是第一记录的值），正常的话，应该分别输出3个字段不同的值，经测试所得d是正确的，问题是在data2中没有按要求搜索，小弟不才，还望高人指点！
Dim a, b, c, nums(2, 4), dong(4), yun(4) As Double
Dim d, e, g As Integer
a = Text1.Text
b = Text2.Text
Data3.Recordset.MoveLast
e = Data3.Recordset.RecordCount
Data3.Recordset.MoveFirst
For i = 1 To e
d = Data3.Recordset.Fields(4)
Data2.Recordset.FindFirst "pailie_xuhao like 'd'"
For j = 1 To 4
dong(j) = Data2.Recordset.Fields(j + 7)
yun(j) = Data2.Recordset.Fields(j + 11)
nums(1, j) = a * dong(j)
nums(2, j) = b * yun(j)
Next
Data3.Recordset.MoveNext
msgbox dong(1)
Next

非常感谢，问题就是出在这里了，我把d定义成和字段名中一样的类型，然后代码换成：Data2.Recordset.FindFirst "pailie_xuhao like'" & d & "'"，就可以了。
另外，附上如下信息，希望对进来的新手们有些用处：日期类型的字段，变量两边加上“#”；文本类型的字段，变量两边加“‘”（单引号），&&中括起来表示其中的东东为变量