Gracias por tomarse el tiempo para responder, y si, ya había investigado sobre currency manager, e incluso tenia ejemplos, pero investigando un poco mas me encontré con una consulta:
where id_empleado
= '1-9999-9999'
Esta Consulta lo que me da es el numero actual de x registro, y sé que existe una funcion en sql server (ROW_NUMBER) que en mysql nó, pero esta a mi parecer es mas genérica.Y la pude implementar de la siguiente manera:
Friend Function Obtener_Numero_Fila_Actual(ByVal Llave_Primaria As String, ByVal Nombre_Tabla As String, ByVal Valor_Llave As String) As Integer
Dim ds As New DataSet
Dim sqlinstruccion As String = "select (select COUNT(*) from " & Nombre_Tabla & " where " & Llave_Primaria & " < '" & Valor_Llave & "') + 1 as indice " & _
"from " & Nombre_Tabla & " " & _
"where " & Llave_Primaria & " = '" & Valor_Llave & "' "
Llenar_Ds(ds, sqlinstruccion)
Obtener_Numero_Fila_Actual = Convert.ToInt32(ds.Tables(0).Rows(0)(0).ToString())
End Function
Friend Function Obtener_Total_Filas(ByVal Nombre_Tabla As String) As Integer
Dim ds As New DataSet
Dim sqlinstruccion As String = "select COUNT(*) from " & Nombre_Tabla & ""
Llenar_Ds(ds, sqlinstruccion)
Obtener_Total_Filas = Convert.ToInt32(ds.Tables(0).Rows(0)(0).ToString())
End Function
Para asi llegar a esto:
lblposicion.Text = Obtener_Numero_Fila_Actual("id_empleado", "empleado", txtid_empleado.Text).ToString() & " de " & Obtener_Total_Filas("empleado").ToString()
Y ahora si me logre este efecto: 1 de 10