Use your function to validate the date and change
daCreate.InsertCommand.Parameters.Add(New SqlParameter("@ROUTTD", DateTime.Parse(txtTargetDate.Text)))
To
daCreate.InsertCommand.Parameters.Add("@ROUTTD", SqlDbType.DateTime).Value = DateTime.Parse(txtTargetDate.Text)