txtmsg=objrs.AbsolutePosition&"/"&objrs.RecordCount解释一下这句
还有
Private Function Check_Password(ByVal username As String, ByVal password As String) As Byte
On Error GoTo gpError
Dim obiCn As New Connection
Dim objRs As New Recordset
Dim strCn As String, strSQL As String
With objCn
     .Provider = "SQLOLEDB"
     .ConnectionString="USER ID=sa;PWD=;Data Source=(local);"&initial Catalog=实例1库"
     .Open
End With  也分析一下这几个句子,我是照着书本做的例子,但是有错,请达人出手相助