Apoyo sqlcommand

[alan_69niupi]

Dim conecta As ConexionBD ''''1
aqui como que estas creando un objeto de la case ConexionBD
pero segun como veo las cosas, realmente tu cadena de conexion debiera ser
Dim ConexionBDFarmacia As New SqlClient.SqlConnection
ya sea que declares publica esta variable o que llames al metodo
Public Sub Abrir_ConexionFarmacia()
para que tengas acceso a la conexion.
es decir te marca ese error porque estas asignando un objeto en lugar de una conexion.

Saludos!!!