主题：帮我看下这段代码

Dim cmd As new SQLCommand
Dim dt As DataTable
Dim i As Integer
cmd.C
cmd.CommandText="select * from ph where material_no='" & Tables("物料资料_Table1").Current("Material_No") & "'"
dt = cmd.ExecuteReader()
For i=0 To dt.DataCols.Count-1
If(Forms("物料资料").Controls.Contains(dt.DataCols(i).Name)) Then ’这个地方
报错

Forms("物料资料").Controls(dt.DataCols(i).Name).Text=dt.DataRows(0)(dt.DataCols(i).Name)
End If
Next