Visual Basic - guardar

hola tengo una duda:
kiero saber la sintaxis de como guardar en una bd acces desde visual basic 6.0. los datos o mas bien la opcion elegida en comboBox y en una LisBox.....

esta es la coneccion

Dim Base As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Control As Boolean
Dim i As Integer
Dim LblStatus As String
Const sPathBase As String = "c:\DATOS.mdb"

asi tengo el codigo en el boton para guardar los datos

Case 4 ' guardar
'*************************************************
' Guardar el contenido de las cajas de texto

If text_clientes(0).Text = "" Or text_clientes(1).Text = "" _
Or text_clientes(2).Text = "" Or text_clientes(3).Text = "" _
Or text_clientes(4).Text = "" Or text_clientes(5).Text = "" _
Or text_clientes(6).Text = "" Or text_clientes(7).Text = "" _
Or text_clientes(8).Text = "" Or text_clientes(9).Text = "" _
Or text_clientes(10).Text = "" Or text_clientes(11).Text = "" _
Or text_clientes(12).Text = "" Or text_clientes(13).Text = "" Then


MsgBox ("ERROR FALTAN DATOS")
text_clientes(0).SetFocus
Else
'agrega un registro en blanco a la base
With rs
If Control Then
.AddNew 'crea registro en blanko
End If
Dim i As Integer
For i = 0 To 13
.Fields(i) = text_clientes(i).Text ' se pasan los valores delas cajas de texto a los compos
Next
' Actualizar los datos en el recordset
'.Update 'actualiza los datos en la tabla
.Update

End With

Control = True

rs.MoveFirst ' primer registro de la tabla
Call BloqDes_Botones(Cmd_Cli_Opción, 0, 6, True)
Cmd_Cli_Opción(6).SetFocus
Call Mostrar_Registro(text_clientes, rs, 0, 13)
Call BloqDes_Botones(Cmd_Cli_Opción, 4, 5, False)
Call BloqDes_Textos(text_clientes, 0, 13, True)
Call Activar_Textos(text_clientes, 0, 13, False)
Call BloqDes_Botones(Cmd_Cli_Mover, 0, 3, True)
End If

gracias,.......................................................................................

funciona o no? da error en alguna linea? en cual linea? que tipo de error?

la verdad es k no lo puedo hacer es por eso k te agradeceria k me ayudaras con esto por eso te envio los datos mas menos como para k se ubiken en como lo estoy haciendo muxas gracias

esta es la coneccion

Dim Base As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Control As Boolean
Dim i As Integer
Dim LblStatus As String
Const sPathBase As String = "c:\DATOS.mdb"

asi tengo el codigo en el boton para guardar los datos

Case 4 ' guardar
'*************************************************
' Guardar el contenido de las cajas de texto

If text_clientes(0).Text = "" Or text_clientes(1).Text = "" _
Or text_clientes(2).Text = "" Or text_clientes(3).Text = "" _
Or text_clientes(4).Text = "" Or text_clientes(5).Text = "" _
Or text_clientes(6).Text = "" Or text_clientes(7).Text = "" _
Or text_clientes(8).Text = "" Or text_clientes(9).Text = "" _
Or text_clientes(10).Text = "" Or text_clientes(11).Text = "" _
Or text_clientes(12).Text = "" Or text_clientes(13).Text = "" Then

MsgBox ("ERROR FALTAN DATOS")
text_clientes(0).SetFocus
Else
'agrega un registro en blanco a la base
With rs
If Control Then
.AddNew 'crea registro en blanko
End If
Dim i As Integer
For i = 0 To 13
.Fields(i) = text_clientes(i).Text ' se pasan los valores delas cajas de texto a los compos
Next
' Actualizar los datos en el recordset
'.Update 'actualiza los datos en la tabla
.Update

End With

Control = True

rs.MoveFirst ' primer registro de la tabla
Call BloqDes_Botones(Cmd_Cli_Opción, 0, 6, True)
Cmd_Cli_Opción(6).SetFocus
Call Mostrar_Registro(text_clientes, rs, 0, 13)
Call BloqDes_Botones(Cmd_Cli_Opción, 4, 5, False)
Call BloqDes_Textos(text_clientes, 0, 13, True)
Call Activar_Textos(text_clientes, 0, 13, False)
Call BloqDes_Botones(Cmd_Cli_Mover, 0, 3, True)
End If

gracias,.......................................................................................

la molestia pero me llego un msje de respuesta y no hay nada ......................gracias

el mensaje no lo envie yo, no suelo enviar mensajes (y menos sin respuesta) pero la pregunta sigue siendo la misma:
¿cual es el problema?

la pregunta es cual es la sintaxis para guardar esa opcion en una bd acces utilizando el codigo k envie de todas formas la envie nuevamente en otra nota

de verdad tengo esa pana muxas gracias

YA ESTA! LA ESCRIBO CON MAYUSCULAS. CUAL ES EL PROBLEMA? DA ERROR EN ALGUNA LINEA DEL CODIGO? CUAL ES EL ERROR QUE DA Y EN QUE LINEA?

Espero que me hayas entendido.

Salu2

mira como te digo no es k de error en alguna linea por K no la he probado por la Sencilla razon de k no la se hacer...............
EN RELACION A ESO YO KIERO K ME AYUDES EN COMO LO HAGO PARA GUARDAR LOS DATOS DE UN COMOBOX O LISTBOX EN UNA BD ACCES Y PARA ESO TE ENVIE EL CODICO CON EL CUAL ESTOY TRABAJANDO ESE CODIGO CORRESPONDE AL EVENTO CLICK DEL BOTON GUARDAR ME ENTIENDES? ES SOLO ESO LA LINEA PARA GUARDAR LA OPCION ELEGIDA DEL COMBOBOX O LISTBOX EN ESTA BD.......................

paciente de paciencia, no de ingresado en un hospital o similar!!!!

primero la pruebas, sólo tienes que poner ese codigo, y si funciona... oleee!!!
y si no funciona volvemos a las preguntas anteriores.

Entendido?????

Salu2