Pasar fechas de formulario a Base de datos Mysql

[gnzsoloyo]

Primero: Por favor, usa los Highlight que hay en el área de mensajes. De ese modo los códigos que postees se vuelven más legibles.

Segundo: te falta todavía mucha práctica para poder manejar la codificacion y los bloques de control de errores. También la secuencia lógica de creación e instanciación de objetos.

Código vb:

Private Sub guardarremisiones_Click(ByVal sender As Object, ByVal e As EventArgs) Handles guardarremisiones.Click
        ' Primero crea todas las variables
        Dim fecha As DateTime
        Dim oConexion As MySqlConnection
        Dim Ds As New DataSet
        Dim tabla As New DataTable
        Dim objadap As MySqlDataAdapter
        Dim sSel As String
        Dim cmd As MySqlCommand
 
        'Luego carga las necesarias para iniciar la conexion
        oConexion = New MySqlConnection
        oConexion.ConnectionString = "Server=localhost;Database=prueba;Uid=root;Pwd=*** **;"
 
        ' Despues el resto
        sSel = "insert into laboratorios72(caja,factura,laboratorio,fecha_entr ega,fecha_ingresado)values(?caja, ?factura, ?lab, ?fechaentrega, ?fechaingreso)"
        fecha = txtfechaentrega.Value
 
        ' finalmente, todas las que representen acciones, van en el bloque Try/Catch
        ' Es decir, cualquier cosa que pueda dar lugar a erroes.
        Try
            oConexion.Open()
            cmd = New MySqlCommand(sSel, oConexion)
 
            ' No se pueden asignar parámetros antres de crear el objeto de comandos
            cmd.Parameters.AddWithValue("?caja", txtcaja.Text)
            cmd.Parameters.AddWithValue("?factura", txtfactura.Text)
            cmd.Parameters.AddWithValue("?lab", cbolab.Text)
            cmd.Parameters.AddWithValue("?fechaentrega", txtfechaentrega.Value)
            cmd.Parameters.AddWithValue("?fechaingreso", fecha)
            objadap = New MySqlDataAdapter(sSel, oConexion)
 
            ' .Fill ejecuta la sentencia. El método ExecuteNonQuery es innecesario.
            objadap.Fill(tabla)
 
            oConexion.Close()
        Catch ex As MySqlException
            ' Acá se pone todo lo que se quiere hacer o mostrar en caso de una Exception de MySQL
            MessageBox.Show(ex.Message)
        Catch ex As Exception
            ' Acá el resto de las excepciones
            MessageBox.Show(ex.Message)
        End Try
 

Lee los manuales, en especial el manual de referencia y los ejemplos que allí se muestran.
Practica. No intentes crear un proyecto ahora, porque todo lo que hagas deberás rehacerlo más adelante.