如何做一个登陆框，在线等待

[cym40011]

Private Sub cmdland_Click()
frmlogin.Data1.Recordset.FindFirst "name='" & Text1.Text & "'"
If Form1.Data1.Recordset.NoMatch Then
MsgBox "ÎÞ´ËÈËÐÅÏ¢£¬ÇëÌí¼Ó£¡", vbOKOnly
Unload Me
End If
End Sub

但运行后第二行出现“这种对象类型不支持该操作”的错误
请问该如何解决，谢谢帮忙