Codigo En Visual

PrivateSub cmdGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGuardar.Click
REM crear la conexion con la base de datos
Dim con AsNewOleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Data Source= C:\ALMACEN\ALMACEN.accdb")
con.Open() REM abre la BD
Dim sqlguardar AsString
sqlguardar = "insert into Altas values(@Folio,@CompFolio,@NAfiliacion,@Agreg,@Sexo,@AñoNac,@Regimen,@Npac,@APatPac,@AMatPac,@Edad,@UnidEnvio,@FRecMuest,@Servicio,@NomMed,@PatMed,@MatMed,@Matricula,@Estado,@AreaPiso,@Cama,@PzQuirurgica,@FecEntEst,@MatriculaPatologo,@NomPatol,@PatPatol,@MaternoPatol)

"
Dim cmd AsNewOleDbCommand(sqlguardar, con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@Folio", txtFolio.Text)cmd.Parameters.AddWithValue("@CompFolio", cmbCompFolio.Text)
cmd.Parameters.AddWithValue("@NAfiliacion", txtAfiliacion.Text)
cmd.Parameters.AddWithValue("@Agreg", AgregComboBox.Text)cmd.Parameters.AddWithValue("@Sexo", cmbSexo.Text)
cmd.Parameters.AddWithValue("@AñoNac", txtAñonac.Text)
cmd.Parameters.AddWithValue("@Regimen", cmbRegimen.Text)cmd.Parameters.AddWithValue("@NPac", txtNPac.Text)
cmd.Parameters.AddWithValue("@APatPac", txtAPatPac.Text)
cmd.Parameters.AddWithValue("@AMatPac", txtAMatPac.Text)
cmd.Parameters.AddWithValue("@Edad", txtEdad.Text)cmd.Parameters.AddWithValue("@UnidEnvio", cmbUnidEnvio.Text)
cmd.Parameters.AddWithValue("@FrecMuest", dtpFRecMuest.Text)
cmd.Parameters.AddWithValue("@Servicio", cmbServicio.Text)cmd.Parameters.AddWithValue("@NomMed", txtNomMed.Text)
cmd.Parameters.AddWithValue("@PatMed", txtPatMed.Text)
cmd.Parameters.AddWithValue("@MatMed", txtMatMed.Text)cmd.Parameters.AddWithValue("@Matricula", txtMatricula.Text)
cmd.Parameters.AddWithValue("@Estado", cmbEstado.Text)
cmd.Parameters.AddWithValue("@AreaPiso", cmbAreaPiso.Text)
cmd.Parameters.AddWithValue("@Cama", txtCama.Text)...