Option Compare Database 
Option Explicit 
Dim dbs As Database 
Dim rst As Recordset 
ตรง lbl1.Caption ใช้ไม่ได้ครับเพราะเหตุใด 
Sub showDat() 
    txtNO = rst![NO] 
    txtMnt = rst![mnt] 
    txtMnt2 = rst![ด] 
    lbl1.Caption = "แถวที่ :" & rst.AbsolutePosition & rst.RecordCount 
End Sub 
 
Private Sub Form_Load() 
    Set dbs = CurrentDb() 
    Set rst = dbs.OpenRecordset("tb1") 
    showDat 
End Sub