Visual Basic para Aplicaciones - Pregunta

Hola que tal.

Tengo una pequeña duda.
Estoy tratando de obtener ciertos valores de un campo en una tabla desde acces con vba y estoy haciendo el codigo desde un modulo pero siempre que ejecuto el modulo para hacer una prueva solo se va al siguiente record y se sale del bucle en que lo tengo declarado:
El codigo que estoy utilizando es el siguiente:

Public Function Prueva()
Dim Db As ADODB.Connection
Dim RS As ADODB.Recordset
Dim Contador As Long

Set Db = Nothing
Set RS = Nothing
Set Db = CurrentProject.Connection
Set RS = New ADODB.Recordset

RS.Open ("Select TD from M"), Db
Contador = 0

If RS("TD").Value = 1 Then
RS.MoveNext
Do Until RS("TD").Value = 1
If RS("TD").Value = 2 Then
Contador = Contador + 1
RS.MoveNext
End If
Loop
MsgBox Contador
End If

Set RS = Nothing
Db.Close
End Function

Si alguen pe pudiese explicar porque es que se sale del bucle esta funcion se lo agradeceria mucho.

Saludos!

Saludos Alejandro, fijate que en la condición estas indicando que se haga hasta que RS("TD").Value = 1 y puede ser que el siguiente registro

If RS("TD").Value = 1 Then
RS.MoveNext

tenga valor 1, por lo tanto se sale del bucle, de hecho ni siquiera entra en el bucle.

Espero te sea de ayuda.

Gracias!