Cosa rara, Ayuda!!

[CroMag]

Resulta que tengo este codigo en un formulario:

Private Sub Form_Load()
On Error GoTo ErrorEliminar

Do While Not Me.adoProveedores.Recordset.EOF
cboProveedores.AddItem Me.adoProveedores.Recordset.Fields(1).Value
Me.adoProveedores.Recordset.MoveNext
Loop

Me.adoProveedores.Recordset.MoveFirst

Exit Sub
ErrorEliminar:
MsgBox Err.Description, vbOKOnly, "ERROR"
End Sub

Es muy simple, se supone que tiene que leer los nombres de los proveedores de la base de datos, y volcarlos en un combo, hasta que sea final de fichero.
El problema esta en que lo hace, pero cuando vas a mirar la base de datos, los nombres que ha puesto en el combo se borraron de la BD.Alguien me puede decir que pasa?¿no hay nada para que cambie el valor del registro, solo leer y mostrarlo en el combo.A ver si me podeis ayudar.Gracias

[lop7]

hola ....

bueno y porq no lo pruebas haciendo una consulta a la tabla de proveedores en ves de utilizar la tabla directamente

saludos ...
nos vmos

[CroMag]

A que te refieres exactamante con lo de la consulta?¿.Gracias

[lop7]

seria algo asi
Dim ors As ADODB.Recordset
Dim ocnn As New ADODB.Connection
Dim oCmd As New ADODB.Command

Set ors = New ADODB.Recordset
oCmd.CommandType = adCmdText
oCmd.CommandText = "SELECT nombreprov FROM proveedores"
Set ors = oCmd.Execute
While Not ors.EOF
cboProveedores.AddItem ors.fields!nombreprov
ors.MoveNext
Wend

saludos
nos vemos....