Prueba lo siguiente:
Código:
Dim fechaInicio As Date = Convert.ToDateTime(Me.DateTimePicker1.Text)
Dim fecha1 As String = String.Format("{0:yyyy-MM-dd}", fechaInicio)
Try
conexion = New MySqlConnection()
conexion.ConnectionString = "server=" & Servidor & ";" & "user id=" & Usuario & ";" & "password=" & Pass & ";" & "database=" & BasedeDatos & ";"
conexion2.Open()
table = New DataTable
adaptador = New MySqlDataAdapter("SELECT valor FROM Casas WHERE fecha=" & Format("{0:yyyy-MM-dd}", fechaInicio) & ";", conexion2)
builder = New MySqlCommandBuilder(adaptador)
adaptador.Fill(table)
TextBox4.Text = Me.table.Rows(0).Item(0)
Catch ex As Exception
msgbox(err.description)
End Try
Con eso puedes capturar el error y ver que esta pasando. A mi parecer no encuentra ningún registro con los filtros asignados en el where y al tratar de asignar un null, la aplicación genera un error en tiempo de ejecución y, en buen chileno, se va de wata
