exe.sqlStr = "if exists (select * from TAM_Email_RedBull) update [dbo].[TAM_Email_RedBull] set [AbsentQua]=@p1,[Day]=@p2,[Subject] =@p3,[Body] =@p4 else insert into TAM_Email_RedBull(AbsentQua,Day,Subject,Body)values(@p1,@p2,@p3,@p4)" exe.cmdConnection() exe.sqlParameter_Value("@p1", "I", Val(Me.TextBox1.Text)) exe.sqlParameter_Value("@p2", "I", Val(Me.Txtno.Text)) exe.sqlParameter_Value("@p3", "NV", Me.txtSubject.Text) exe.sqlParameter_Value("@p4", "NV", Me.txtBody.Text) exe.ExecuteNonQuery()