运行下面的代码时，编译错误，属性的使用无效！ 帮帮忙啊！谢谢啦~~

..............
..............
错误位置在下面的代码内！

Private Sub Form_Load()
Set objCn = New Connection
objCn.Open "DSN=ʵÀý2DSN"
Set objRS = New Recordset
With objRS
  .CursorLocation = adUseClient
  .CursorType = adOpenStatic
  .LockType = adLockOptimistic
  .Open "select * from ÏµÍ³Óû§", objCn
  
End With

txtUserName = objRS.Fields("Óû§Ãû").Value
txtPassword = objRS.Fields("¿ÚÁî").Value
txtMsg = objRS.AbsolutePosition & "/" & objRS.RecordCount
End Sub

...........
.............[em8][em8]