Dim query As String = "INSERT INTO [t0011Journal]([f0011Date],[f0011Memo],[f0011ClasificationCode],[f0011AccNumber],[f0011AccName],[f0011Debit],[f0011Credit],[f0011MonthYear])VALUES ('" & txtDate.Text & "','" & txtMemo.Text & "','" & txtClasifiCode.Text & "','" & txtAccNumber.Text & "','" & txtAccName.Text & "','" & txtTotal.Text & "','" & txtdech.Text & "','" & txtBlnThn.Text & "')"
myDataAdapter = New SqlDataAdapter(query, strConnectionString)
DS = New DataSet()
myDataAdapter.Fill(DS, "t0011Journal")



Dim query2 As String = "DELETE FROM [t005Temporary] WHERE ([f005AccNumber]='" & txtAccNumber.Text & "')"
myDataAdapter2 = New SqlDataAdapter(query, strConnectionString)
DS = New DataSet()
myDataAdapter2.Fill(DS, "t005Temporary")


this is my coding, when i run it the error display like that:

Violation of PRIMARY KEY constraint 'PK_t0011Journal'. Cannot insert duplicate key in object 't0011Journal'.
The statement has been terminated.

Line 185: myDataAdapter2 = New SqlDataAdapter(query, strConnectionString)
Line 186: DS = New DataSet()
Line 187: myDataAdapter2.Fill(DS, "t005Temporary")Line 188:
Line 189: End If