Dim sql As String
Set conexion = New ADODB.Connection
Set Recordset= New ADODB.Recordset
conexion.Open "App.Path + "\BaseDatos"
sql = "insert into Alumno (Id,Nombre)" & _
"values (1,a)"
conexion.Execute sql
conexion.Close