guardar datos de un datetimepicker a una bd

[Migue-LXC]

hola a todos

quisiera saber que estoy haciendo mal... estoy tratando de guardar una fecha de un datetimepicker a una base de datos pero no me sale...

Private Sub btngra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngra.Click

Try
'Dim rs As ADODB.Recordset
Dim codobj As String = Val(Me.txtocod.Text)
Dim nomobj As String = Me.txtonom.Text
Dim objtini As Date = Me.dtpoini.Value
Dim objtfin As Date = Me.dtpofin.Value



Dim cadena As String
cadena = "insert into objetivo(obj_cod,obj_nom,obj_t_ini,obj_t_fin) values ('" + codobj + "','" + nomobj + "','" + objtini + "','" + objtfin + "')"


Dim comando As New SqlCommand(cadena, cn)
Dim r As Integer
cn.Open()
r = comando.ExecuteNonQuery()
cn.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try
MessageBox.Show("Los datos se grabaron correctamente....")



por favor.... espero que me ayudaen

gracias de antemano