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

[darknightroad]

Muchas Gracias Carlojas, por tu respuesta, pero me sigue saliendo el mismo error, el detalle ahora es que si dejo la linea:
adp.Fill(ds, "Det_Doc"), en el programa cuando quiere actualizar me marca error "Update no puede encontrar TableMapping['Table'] o DataTable 'Table'." y se le quito la funcion antes mencionada me vuelve a marcar que no existe la tabla 0

Public Function ModifDocs(ByVal Cedula As String, ByVal RowId As Integer) As Boolean
Try
Dim conect As New SqlConnection(My.Settings.AccesoConnectionString)
conect.Open()
Dim ds As New DataSet
Dim adp As New SqlDataAdapter("Select * from Det_Doc", conect) 'My.Settings.AccesoConnectionString)
adp.Fill(ds, "Det_Doc")' si dejo esta linea tal como esta me marca el error con el update
'Dim fila As DataRow = ds.Tables(0).Rows.Find(RowId)
Dim fila As DataRow = ds.Tables(0).Select("RowId = " + RowId.ToString + "")(0)
fila.BeginEdit()
fila("Cedula") = Cedula
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
fila.EndEdit()
Dim cb As New SqlCommandBuilder(adp)
ds.Tables(0).AcceptChanges()
adp.Update(ds)' esta linea es la que me marca cuando dejo habilitada la opcion de adp.fill
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