Dim maConnexion As OleDbConnection
Dim maCommande As OleDbCommand
maConnexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Request.PhysicalApplicationPath & "db\Sondage.mdb")
Dim ChaineSQL as string= "Insert Into vacances (Lieu, Quand,Qui) VALUES " & _
"(@Lieu,@Quand,@Qui)"
maCommande = New OleDbCommand(ChaineSQL, maConnexion)
maCommande.Parameters.Add( _
New OleDbParameter("@Lieu", OleDbType.Varchar,50))
maCommande.Parameters.Add( _
New OleDbParameter("@Quand", OleDbType.VarChar,50))
maCommande.Parameters.Add( _
New OleDbParameter("@Qui", OleDbType.VarChar,50))
maCommande.Parameters("@Lieu").Value = _
Lieu.Text
maCommande.Parameters("@Quand").Value = _
Quand.Text
maCommande.Parameters("@Qui").Value = _
Request.ServerVariables("REMOTE_ADDR")