Agregar desde Dataset a la BD

Gente como anda. De vuelta y con mis problemas necesito probar esto.

Lo que necesito hacer es esto. Desde una sentencia Sql traigo tres registros
de la Tabla Tareas, entonces luego agrego una fila al DataTable para luego
mostrarlo hasta ahi va perfecto.

Lo que no se como hacer es mandarle a ese Datable la Consulta que tengo en
el Datable + la Fila que le agregue a la Base de Datos

Les dejo el codigo

Dim sSQL As String
Dim iReg As Integer, i As Integer
Dim sTarea As String, sDepende As String, sDescr As String


sSQL = "SELECT * FROM Tarea Where Tarea.Principal = 0 Order By
Tarea.IdTarea" cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;
Data Source= " & _
"D:\Visual Studio Projects\Tarea v 1\Tarea.mdb")

' Crear el comando
cmd = New OleDbDataAdapter(sSQL, cnn)

' Llenar el DataTable
ds = New DataSet
cmd.Fill(ds)

dt = ds.Tables(0)

Dim newRow As DataRow = dt.NewRow()
'Set values in the columns:
newRow("id") = "9"
newRow("idTarea") = "9"
newRow("Depende") = "9"
ds.Tables(0).Rows.Add(newRow)

For Each dt In ds.Tables
'dt.TableName = ("Sere")
Dim nombre As String
For iFila = 0 To dt.Rows.Count - 1 ' Por cada fila de la dataSet
Item = Me.lvTarea.Items.Add(dt.Rows(iFila).Item("idTarea"))
Item.SubItems.Add(dt.Rows(iFila).Item("Depende"))
Item.SubItems.Add(dt.Rows(iFila).Item("Tarea") & "")
Next iFila

Next dt
cmd.Update(ds)