Hola nuevamente, bueno le agregue esto y ya me funciona.......gracias de todas formas
Dim valor = dtglogin.PageSize * (dtglogin.CurrentPageIndex + 1)
If (valor < RcdCount) Then
lbltotalrec.Text = (dtglogin.PageSize * (dtglogin.CurrentPageIndex + 1)) & " " & "Records of " & " " & RcdCount
Else
lbltotalrec.Text = RcdCount & " " & "Records of " & " " & RcdCount