Visual Basic - Contar registros en mshflexgrid? me da -1

No se que estoy haciendo mal, pero tengo un programita conectado a access por un Adodc y muestro mis datos en un mshflexgrid.

Dim TablaX As New ADODB.Recordset
Dim Canal As String
Dim Num As Integer

TablaX.Open "Select * from Tabla1"
TablaX.Movefirts
Num = TablaX.RecordCount
Text3.Text = Val(Num)
TablaX.Close

La cuestion es que siempre me muestra -1 en el text. tengo como 12 registros.

Eso fue lo que aprendi leyendo los mensajes de por aqui porq enrealidad no sabia como contar.

Abre el recordset así:

TablaX.Open "Select * from Tabla1", conexion, adOpenStatic, adLockOptimistic

La cuestión está en el tipo de cursor: Static y KeySet devuelven los registros del recordset , Dynamic y ForwarOnly siempre devuelven -1.

Gracias, me solucionaste el problema ahora si cuenta bien.