Well, too bad you did not post the code as text - I would have cut + pasted more working code.
But, your code should be setup something like this:
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim status As String
If RadioAktif.Checked = True Then
status = "Aktif"
Else
status = "Non Aktif"
End If
Dim strSQL As String =
"INSERT ListAssigmment (id, task, customer, mandays, Status)
VALUES (@id, @task, @customer, @mandays, @Status)"
Using conn As New SqlConnection(My.Settings.TEST4)
Using cmdSQL As New SqlCommand(strSQL, conn)
cmdSQL.Parameters.Add("@id", SqlDbType.Int).Value = 0 ' textCustID.Text
cmdSQL.Parameters.Add("@task", SqlDbType.NVarChar).Value = TextTask.Text
cmdSQL.Parameters.Add("@customer", SqlDbType.NVarChar).Value = TextCustomer.Text
cmdSQL.Parameters.Add("@mandays", SqlDbType.NVarChar).Value = TextManDays.Text
cmdSQL.Parameters.Add("@Status", SqlDbType.NVarChar).Value = Status
conn.Open()
cmdSQL.ExecuteNonQuery()
End Using
End Using
Above is air code, since I can't re-type all of your code in a picture - that would cause world poverty and take too much time.
However, the above code is "close" and a good working example of how you should and want to approach this.
So, as a general rule, in the SQL, you want to specify BOTH the columns, and then the values to insert.