Visual Basic.NET - Introducir datos en una tabla

Hola, soy nuevo en eso del punto NET.
Yo lo que quiero despues de crear una tabla con dos fechas, es desde un formulario poder rellenar esos dos campos para poder recogerlos despues para crear un reporte. Tengo el codigo que se supone que me deberia llenar los doc campos pero me da un error en la sentencia Update. Pongo el codigo que yo tengo para que se vea mejor. E problema me dice que el InsertCommand no es valido i desde la linea Adaptador.Update(Datosset.Tables("fecha")) no continua ejecutando

Private Sub Fechas()

Dim Datosset As New _eqp_horesDataSet1
Dim Adaptador As New SqlDataAdapter


Try

Datosset.Tables("fecha").Clear()

novafila = Datosset.Tables("fecha").NewRow

novafila.Item("d_inicial") = d_inicial.Text
novafila.Item("d_final") = d_final.Text

Datosset.Tables("fecha").Rows.Add(novafila)

Adaptador.Update(Datosset.Tables("fecha"))

Catch ex As Exception
Call MsgBox("Error a Update", MsgBoxStyle.Critical, "Error")
End Try


End Sub

Si alguien me podria dar alguna pista para resolver el problema les estaria agradecidos. Gracias de antemano

Hola!! Podrías poner todo tu código, porque no veo la cadena de conexión, la tabla a la que vas a insertar los datos. Fíjate que el .Clear no esté borrando la estructura del Dataset y también si no te hace falta un .ExecuteNonQuery() en el Adapter.

Ante todo muchas gracias por tu ayuda.

La cadena de conexion esta en un programa principal y se lla Cn1. Creo que deberia llamarla, pero lo he probado y tampoco me funciona te mando el codigo con la cadena de conexion puesta, es la ultima prueba que he echo.

Private Sub Fechas()


Try

novafila = Datosset.Tables("dates").NewRow

novafila.Item("d_inicial") = d_inicial.Text
novafila.Item("d_final") = d_final.Text

Datosset.Tables("dates").Rows.Add(novafila)

'Update requiere que InsertCommand sea válido cuando se pasa la colección DataRow con nuevas filas.

Adaptador = New SqlClient.SqlDataAdapter("asdf", Cn1)
Adaptador.Update(Datosset.Tables("dates"))

(Me.d_inicial.Text), "dd/MM/yyyy") + "' "
MessageBox.Show(d_inicial.Text)
Catch ex As Exception
Call MsgBox("no introdueix les dades a la taula perquè l'update no funciona ara", MsgBoxStyle.Critical, "Error")
End Try


End Sub

aaaaaaaaaaah!!!!

No he tenido oportunidad de revisarlo a fondo, pero espero vallas por buen camino, quiero preguntarte, estás utilizando Stored Procedures para la consulta, insercion, o actualizacion de los datos que estás manejando?? El dataset que estás manejando por medio de qué es llenado?? el dataset es tipado o sin tipar??

Saludos.

Gracias OliBeer ya he solucionado el problema.
La tabal la cree solo en el DataSet y no dentro la maquina, por lo tanto se debe llenar con el siguiente codigo por ejemplo.

Dim Fila As DataRow
Fila = Datos.dates.NewRow
Fila.Item("d_inicial") = Me.d_inicial.Text
Fila.Item("d_final") = Me.d_final.Text
Datos.dates.Rows.Add(Fila)

Órale!! me da mucho gusto

Saludos...