Private Sub Ajouter_Click() leparametre = tavaleurasup.text 'Exemple strRequete = "Insert into ............................" Dim oConnection AsNew SqlConnection("ta string de connexion") Dim oCommand AsNew SqlCommand(strRequete, oConnection) oConnection.Open() oCommand.ExecuteNonQuery() oConnection.Close() End Sub