Visual Basic - Coneccion,Command,Recordset

Hola quisiera saber porque cone sta sentencia solo se muestra un solo registro de mi base cuando en realidad hay mas.

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset

cnn.Open "DSN=Base_Stock;uid=sa;pwd=;" 'Abro una coneccion
Set cmd.ActiveConnection = cnn
cmd.CommandText = "SELECT * from MLOCA" 'Creo un comando
rst.CursorLocation = adUseClient 'Ejecuto el comando
rst.Open cmd, , adOpenStatic, adLockBatchOptimistic

txt_Codigo_Localidad.Text = rst!CLOC
txt_Descripcion_Localidad.Text = rst!DLOC
txt_Provincia_Localidad.Text = rst!PROV
txt_Codigo_Postal.Text = rst!POST

Cuando intento mover el rst para adelante o para atras no hay caso, pero no me interrumpe el programa simplemente no estan los demas registros.

Agradeceria su ayuda

Reviza cuantos registros te trae rst.recordCount , si sale 0 entonces si te trae un registro de lo contrario , el rst no lo estas avanzando com odeberias. (rst.movenext ) y luego nuevamente:

txt_Codigo_Localidad.Text = rst!CLOC
txt_Descripcion_Localidad.Text = rst!DLOC
txt_Provincia_Localidad.Text = rst!PROV
txt_Codigo_Postal.Text = rst!POST

los controles no se actualizan solos , cada vez que le hagas un move next nuevamente tienes que cargar los controles.

Espero te sirva saludos..

Rolando