Visual Basic - Refrescar ado

El problema que tengo es que despues de agregar el conjunto de registro con la instruccion select los agrega bien a la tabla pero en el formulario no puedo refrescar el datalist pues no aparecen los nuevos datos en el (el datalist) hasta que salgo del formulario al menu anterior y vuelvo a accesar a este
el codigo es el siguiente:

Dim Cn As ADODB.Connection
Dim RsServicios As ADODB.Recordset
Dim RsPolizas As ADODB.Recordset
Dim StrIntroducir As String
Dim Clave As String
Clave = ""
Dim prueba As String
On Error GoTo RutinaDeError2
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:/Polizas/POLIZAS.MDB;" _
& "Persist Security Info=False;" _
& "Jet OLEDB:Database Password=Clave"
Cn.Open
If TxtImporte.Enabled = False Then
StrIntroducir = "INSERT INTO POLIZAS(FECHA, NUMEROFACTURA, CUENTASUBCUENTA, CUENTA, SUBCUENTA, IMPORTE) SELECT '" & TxtFecha.Text & "', '" & TxtNumeroFactura & "', CUENTASUBCUENTA, CUENTA, SUBCUENTA, IMPORTE FROM SERVICIOS WHERE CUENTA= '" & TxtCuenta.Text & "' AND SUBCUENTA<>'" & "00000" & "'"

ElseIf TxtImporte.Enabled = True Then
StrIntroducir = "INSERT INTO POLIZAS(FECHA, NUMEROFACTURA, CUENTASUBCUENTA, CUENTA, SUBCUENTA, IMPORTE) SELECT '" & TxtFecha.Text & "', '" & TxtNumeroFactura & "', CUENTASUBCUENTA, CUENTA, SUBCUENTA, '" & TxtImporte.Text & "' FROM SERVICIOS WHERE CUENTA= '" & TxtCuenta.Text & "' AND SUBCUENTA<>'" & "00000" & "'"
End If
Cn.Execute StrIntroducir
InHabilitarTextBoxFacturas
CmdNuevo.Caption = "&Nuevo"
CmdEliminar.Caption = "&Eliminar"
CmdModificar.Enabled = True
CmdConsultaEnPantalla.Enabled = True
CmdReporteImpreso.Enabled = True
CmdSalir.Enabled = True
CmdFecha.Enabled = False
CmdCuenta.Enabled = False
RegistroNuevo = True
Adodc1.Refresh
DataList1.Refresh
DataList2.ListField = ""
DataList2.Refresh

De antemano Gracias mil por su ayuda
Roberto

Debo suponer que el Datasource de los datalist es el ADODC1, de ser así, por que no haces, un Adodc.Rrcordset.Requery

Saludos
Gustavo

ya lo hice Gustavo y me da error (numero de error: -2147217842) (descripcion: la operacion fue cancelada) porque podra ser?.

Gracias

Lo hice antes del adodc1.refresh que esta en el codigo que envie en la nota anterior aunque ahi no esa porque lo borre, tal vez lo estoy poniendo en donde no
que sera?

Gracias a quien me responda y gracias Gustavo

Roberto

El error al que tu haces referencia en tu correo anterior es debido a que estas ejecutando una operación de actualización y alguno de los campos no cumple con las restricciones (algún campo que todavía no tiene valor) y por lo tanto la operación de refresh queda cancelada.

Saludos
Gustavo

Gracias Gustavo, oye y donde veo el significado de esos numeros de error?

Roberto

busca el knowledge base del sitio de MS$
Gustavo