Private Sub cmdGuardar_Click()
Dim sBase As String
Dim cnn As Connection
Dim rst As Recordset
sBase = App.Path & "\mash.mdb"
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM encuesta", cnn, adOpenDynamic, adLockOptimistic
rst.AddNew
rst!nombre = txtNombre.Text
rst!paterno = txtPaterno.Text
rst!materno = txtMaterno.Text
rst!civil = cmbEdo.Text
rst!sexo = cmbSexo.Text
rst.Update
rst.Close
End Sub