Visual Basic - problema de desplazamiento

Bueno amigos del foro mi problema es el sgte:
tengo una tabla creada en SQLserver 2000 y he creado un formulario para recuperar los datos en vb6.0 con los clasicos botones de desplazamiento inicio, anterior, siguiente y final
y cuando hago click en siguiiente por ejemplo solo avanza uno y no el resto igual para los demas botones solo avanza un registro nada mas no entiendo porque, el codigo es el siguiente:

Private Sub cmddesp_Click(Index As Integer)
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from categoria", Cn
Select Case Index
Case 0
Rs.MoveFirst
Case 1
Rs.MovePrevious
Case 2
Rs.MoveNext
Case 3
Rs.MoveLast
End Select
txtcod.Text = Rs!idcat
txtcat.Text = Rs!Nomcat
cmddesp(1).Enabled = IIf(Rs.AbsolutePosition = Rs.RecordCount, false, True)
cmddesp(3).Enabled = IIf(Rs.AbsolutePosition = Rs.RecordCount, false, True)
cmddesp(0).Enabled = IIf(Rs.AbsolutePosition = 1, True, True)
cmddesp(2).Enabled = IIf(Rs.AbsolutePosition = 1, False, True)

Lógico!

Cada vez que pinchas en el botón estás abriendo el recordset y al abrirlo siempre se posiciona en el primer registro, con lo cual aunque le des 'siguiente' nunca pasará del segundo registro de la tabla.

Solución: Abre el recordset en otro módulo, por ejemplo en el mismo donde haces la conexión.