有VB高手，吗/

这样修改就对了：
If Data1.Recordset!yonghu = Text1.Text And Data1.Recordset!mima = Text2.Text Then

Data1.Recordset["yonghu"]

If Data1.Recordset.yonghu = Text1.Text And Data1.Recordset.mima = Text2.Text Then
....
end if

或
If (Data1.Recordset.yonghu = Text1.Text )And (Data1.Recordset.mima = Text2.Text) Then
...
end if
出错信息上一什么

Data1.Recordset["yonghu"]
Data1.Recordset["mima"]

改成：
If Data1.Recordset("yonghu") = Text1.Text And Data1.Recordset("mima")= Text2.Text Then

if Data1.Recordset.yonghu = Text1.Text And Data1.Recordset.mima = Text2.Text Then这个语句哪里有错？？？

最简单的写法是：
if Data1.Recordset!yonghu = Text1.Text And Data1.Recordset!mima = Text2.Text Then