hola pues no te entendi muy bien, pero si quieres hacerlo lo puedes hacer con un control "DATA" enlazado a una base de datos, si no sabes programar te puedo ayudar pero necesito una idea mas clara para que lo usaras, cualquier cosa me mandas un mp

Te doy este ejemplo que acabo de hacer

Creando un archivo de enlace panel de control/herramientas administrativas/ dns de archivo

lo conectas con un odbc en visual


La base de datos córtala y pégala en c:

Copia la carpeta ejemplo en el escritorio y ejecuta la aplicacion y ya lo verás

pesa 14kb

http://rapidshare.com/files/385413914/copiar_de_combo_a_base_2007.rar


Espero te sirva

Hola amigo con gusto contesto tu pregunta es algo sencillo el codigo es el siguiente:


Dim conConnection As New ADODB.Connection
Dim cmdCommand As New ADODB.Command
Dim rstRecordSet As New ADODB.Recordset
conConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
App.Path & "\" & "basedatos.accdb;Persist Security Info=False;"
conConnection.CursorLocation = adUseClient
conConnection.Open

With cmdCommand
.ActiveConnection = conConnection
.CommandText = "INSERT INTO tabla (campo1,campo2,campo3,campo4,campo5,campo6,campo7)" & _
"VALUES (" & Form1.Text1.Text & "," & "'" & Trim(Form1.Text15.Text) & Mid(Combo1.Text, 9, 1) & "'" & ",'" & Form1.Label17.Caption & "'," & Form1.Text13.Text & ",'" & Form1.Text12.Text & "','" & Combo1.Text & "','" & Combo2.Text & "');"
.CommandType = adCmdText
End With
With rstRecordSet
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open cmdCommand
End With
conConnection.Close
Set conConnection = Nothing
Set cmdCommand = Nothing
Set rstRecordSet = Nothing


espero te sirva mucho amigo, Gracias

Gracias hermanos bakunos...: probado....