Codigos para los botones de formularios de Visual Basic 6.0

Aqqui les dejo los codigos necesarios para realizar un formulario y que les funcione con el control Data Environment de Visual Basic 6.0

- Codigo para el boton anterior

Private Sub cmdAnterior_Click()
DataEnvironment1.rsCommand1.MovePrevious
If DataEnvironment1.rsCommand1.BOF Then
DataEnvironment1.rsCommand1.MoveFirst
MsgBox "Estamos en el primer registro"
End If

End Sub

- Codigo para el boton Buscar

Private Sub cmdBuscar_Click()
Dim id_producto As String
DataEnvironment1.rsCommand1.MoveFirst
'antes de buscar hay que posicionarse en el primer registro
'ahora pedimos el no de producto y lo almacenamos
id_producto = InputBox("Escriba el id de producto a buscar!!")
If id_producto <> "" Then
'hacemos la búsqueda
DataEnvironment1.rsCommand1.Find "[IdProducto]=" & id_producto
'le decimo ke busqye poe el campo Improducto
'solo si no se encontró nada pues le avisamos
If DataEnvironment1.rsCommand1.EOF Then
MsgBox "No se encontró el registro"
DataEnvironment1.rsCommand1.MoveFirst
End If
End If

End Sub

- Codigo para el boton Editar.

Private Sub cmdEditar_Click()
ModoEditarComven = True
End Sub

- Codigo para el boton Eliminar.

Private Sub cmdEliminar_Click()
If MsgBox("¿esta seguro de eliminar este registro?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
DataEnvironment1.rsCommand1.Delete
MsgBox ("eliminado")
DataEnvironment1.rsCommand1.MoveFirst
Else
DataEnvironment1.rsCommand1.Cancel
If DataEnvironment1.rsCommand1.EOF Then
DataEnvironment1.rsCommand1.MoveLast
End If
End If

End Sub

- Codigo para el boton Guardar

Private Sub cmdGuardar_Click()
If MsgBox("¿desea guardar los cambios?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
MsgBox ("guardado")
DataEnvironment1.rsCommand1.Update
ModoEditar = False
End If

End Sub

- Codigo para el boton Nuevo.

Private Sub cmdNuevo_Click()
DataEnvironment1.rsCommand1.AddNew
ModoEditar = True

End Sub

Private Sub cmdPrimero_Click()
DataEnvironment1.rsCommand1.MoveFirst
End Sub

- Codigo para el boton Salir

Private Sub cmdsalir_Click()
If MsgBox("¿Desea Salir del Sistema?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
Else
Cancel = True
End If

End Sub

- Codigo para el boton Siguiente.

Private Sub cmdSiguiente_Click()
DataEnvironment1.rsCommand1.MoveNext
If DataEnvironment1.rsCommand1.EOF Then
DataEnvironment1.rsCommand1.MoveLast
MsgBox "Estamos en el último registro"
End If

End Sub

- Codigo para el boton Ultimo.

Private Sub cmdUltimo_Click()
DataEnvironment1.rsCommand1.MoveLast
End Sub

soy Jess92 espero les sirva y dejen sus comentarios
Recuerden que para que estos codigos funcionen antes deben de haber establecido la coneccion con el control DataEnvironment