Visual Basic.NET - Error sl Actualizar bd SQL 2005

Hola a todos...Estoy empezando a programar en vb.net 2005 y ya estoy lidiando con algunos problemillas...Tengo un formulario en el cual muestro algunos datos y estoy trabajando añadir datos, logro hacer ello en el DataSet, pero cuando actualizo la Base de Datos no logro realizarlo y me sale el sieguiente mensaj.... "Update requiere que InsertCommand sea válido cuando se pasa la colección DataRow con nuevas filas" . POr favor necesito que alguien me ayude, les paso mi codigo para que puedan ver donde esta mi error...Mil Gracias a todos....

Dim dapersonal As OleDbDataAdapter
Dim dspersonal As New DataSet("dspersonal")
Dim clavepersonal(0) As DataColumn
dapersonal = New OleDbDataAdapter("Select * from Personal", ConControl)
dapersonal.Fill(dspersonal, "personal")
clavepersonal(0) = dspersonal.Tables("Personal").Columns("CodEmp")
Dim filaPersonal As DataRow
filaPersonal = dspersonal.Tables("Personal").NewRow()
filaPersonal("CodEmp") = txtcodemp.Text
filaPersonal("NomEmp") = txtnombre.Text
filaPersonal("PatEmp") = txtpaterno.Text
filaPersonal("MatEmp") = txtmaterno.Text
filaPersonal("CodAre") = cboarea.Text
filaPersonal("CodCat") = cbocat.Text
filaPersonal("Activo") = chkactivo.Checked
dspersonal.Tables("Personal").Rows.Add(filaPersonal)
Me.BindingContext(dspersonal, "Personal").EndCurrentEdit()

dapersonal.Update(dspersonal, "Personal")
dspersonal.Tables("Personal").AcceptChanges()
Me.BindingContext(dspersonal, "Personal").Position = 0
DataGridView1.DataSource = dspersonal.Tables("Personal")

'Me.Close()