The connection - seems to work is this:
cnDb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Inetpub\wwwroot\SLSwebbApp\db_Axs\sls.mdb;Persist Security
Info=False"
The insert command is this:
cmdIns.CommandText = _
"INSERT INTO Personer ( Företag, FNamn, ENamn, Adressrad1,
Adressrad2, Pnr, Ort, Tfn1, Tfn2, Epost,Medlem, Medlemsnr, Instruktör, Aktiv,
Livinfo) Values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
The parameters read as follows:
cmdIns.Parameters.Add("?Företag", OleDb.OleDbType.VarChar,
80).Value = Me.txtFtag.Text
cmdIns.Parameters.Add("?FNamn", OleDb.OleDbType.VarChar,
80).Value = Me.txtFNamn.Text
cmdIns.Parameters.Add("?ENamn", OleDb.OleDbType.VarChar,
80).Value = Me.txtENamn.Text
cmdIns.Parameters.Add("?Adressrad1", OleDb.OleDbType.VarChar,
80).Value = Me.txtAdr1.Text
cmdIns.Parameters.Add("?Adressrad2", OleDb.OleDbType.VarChar,
80).Value = Me.txtAdr2.Text
cmdIns.Parameters.Add("?Pnr", OleDb.OleDbType.VarChar, 80).Value
= Me.txtPnr.Text
cmdIns.Parameters.Add("?Ort", OleDb.OleDbType.VarChar, 80).Value
= Me.txtOrt.Text
cmdIns.Parameters.Add("?Tfn1", OleDb.OleDbType.VarChar,
80).Value = Me.txtTfn1.Text
cmdIns.Parameters.Add("?Tfn2", OleDb.OleDbType.VarChar,
80).Value = Me.txtTfn2.Text
cmdIns.Parameters.Add("?Epost", OleDb.OleDbType.VarChar,
80).Value = Me.txtEpost.Text
cmdIns.Parameters.Add("?Medlem", OleDb.OleDbType.Boolean).Value
= Me.chkMedlem.Checked
cmdIns.Parameters.Add("?Epost", OleDb.OleDbType.VarChar,
80).Value = Me.txtMedlNr.Text
cmdIns.Parameters.Add("?Instruktör",
OleDb.OleDbType.Boolean).Value = Me.chkInstr.Checked
cmdIns.Parameters.Add("?Aktiv", OleDb.OleDbType.Boolean).Value =
Me.chkAktiv.Checked
cmdIns.Parameters.Add("?Livinfo", OleDb.OleDbType.Boolean).Value
= Me.chkVillHaInfo.Checked
cmdIns.Connection = cnDb
AntalInfogade = cmdIns.ExecuteNonQuery()
Grateful for anything that could take me closer to a solution...
Kristian