Problema al Guardar datos en una base de datos sql server con vb.net

[darknightroad]

Mira el codigo para agregar un registro desde cero (osea que no hay ningun registro agregado para esa cedula), es el sig.:

Public Function AgregarDocs(ByVal Cedula As String) As Boolean
Try
Dim conect As New SqlConnection(My.Settings.AccesoConnectionString)
conect.Open()
Dim adp As New SqlDataAdapter("Select * from Det_Doc", conect)
Dim ds As New DataSet
adp.Fill(ds, "Det_Doc")
Dim fila As DataRow = ds.Tables(0).NewRow
fila("RowId") = 1
fila("Cedula") = CedulaTextBox.Text
fila("Fot_ced") = Fot_cedCheckBox.Checked
fila("Par_Nac") = Par_NacCheckBox.Checked
fila("Par_NacHijos") = Par_NacHijosCheckBox.Checked
fila("Par_NacPadres") = PAr_NacPadresCheckBox.Checked
fila("Acta_Matrimonio") = Acta_MatrimonioCheckBox.Checked
'fila("Dec_jurada") = Dec_JuradaCheckBox.Checked
'fila("Fondo_Negro") = Fondo_negroCheckBox.Checked
fila("Observaciones") = ObservacionesTextBox.Text
ds.Tables(0).Rows.Add(fila)
Dim cb As New SqlCommandBuilder(adp)
adp.Update(ds, "Det_Doc")
ds.Tables(0).AcceptChanges()
Return True
conect.Close()
Catch ex As DataException
MessageBox.Show(ex.Message)
Return False
Catch ex2 As SqlException
MessageBox.Show(ex2.Message)
Return False
End Try
End Function

Y si estoy usando el codigo que me proporcionaste