Consulta sql en Visual

[Dradi7]

No utilizes ExecuteReader si solo vas a utilizar un Campo a Devolver utiliza el ExecuteScalar() q te devuelve el registro de la primera fila y de la primera columna

Código vb:

Dim lector As Object
Dim sql As String
Dim comandoBD As MysqlCommand
 
sql = "SELECT COUNT(idpelicula) As Cant FROM peliculas WHERE fechainicio = '" & Format(cbFechaPeliHora.Value, "dd/MM/yyyy") & "' "
MessageBox.Show(sql)
 
comandoBD = New MySqlCommand(sql, conexionBD)
conexionBD.Open()
 
lector = comandoBD.ExecuteScalar()
 
If lector >= 3 Then
Return ""
Else
Return "Valido"
End If
conexionBD.Close()