Opcion de Guardar y Cargar

[vicentecamesella]

Puedes crearte una base de datos en MySql o Acces creas un Odbc en el modulo de arranque lo que haces es esta linea en mi caso lo coloco en un modulo en sub main()
sub main()
With cn 'Creo la conexion a la base de datos
.CursorLocation = adUseClient
.ConnectionString = "SISADM"
.Open
End With
end sub

donde cn lo creo como una variable de tipo conexion de adodb

ahora bien en el boton de guardar creas esto

Sub insertar(Tabla As String, campos As String, Valores As String)
On Error GoTo ErrorSub 'Creo bloque para evitar salir del sistema en caso de error

cn.Execute " INSERT INTO `" & Tabla & "` (" & campos & ") VALUES " & _
"(" & Valores & ")"

Exit Sub
ErrorSub:
Call Error(Err.Description, Err.Number)


y para cargar creas un recordset que cargue los valores de tu base de datos y luego lo pasas al formulario ejemplo

donde rs la creo como una variable de tipo recordset de adodb

luego al momento del Load o Activate del formulario

If rs.State = adStateOpen Then
rs.Close
End If

strsql= "SELECT * FROM tabla"
rs.Open StrSql, cn, adOpenDynamic, adLockOptimistic

text1.text = rs!campo1
text2.text=rs!campo2

para crar las variables debes activar los componentes necesarios microsoft recordset 2.8
y microsoft ado algo.....

para crear las variables es asi

public cn as adodb.conectionstring
public rs as adodb.recordset

espero haberte ayudado