Hola amigos, estoy trabajando en visual basic 2010 con capas. Actualmente cuento con una capa de datos, capa negocios, capa de presentación. En la capa presentación me arroja el siguiente mensaje, es por la conexión. Les agradecería que me ayude.
Ya están referenciados

Código:

Imports Farmacia.Datos
Imports Farmacia.Negocios
Imports System.Data
Imports System.Data.SqlClient
Public Class frm_usuarios
    Dim conecta As ConexionBD ''''1
    Dim Par_Farmacia As SqlParameter
    Dim Cmd_usuario As New SqlCommand '''''2
    Dim Ad_usuarios As New SqlDataAdapter ''''3
    Dim Ds_usuario As New DataSet
    Dim Dt_usuario As New DataTable
    Dim Dt_Farmacia As New DataTable
 
	Private Sub frm_usuarios_Load(sender As System.Object, e As System.EventArgs) 	Handles MyBase.Load
        Cmd_usuario = New SqlCommand("select * from a_usuarios", conecta)
        Ad_usuarios = New SqlDataAdapter(Cmd_usuario)
        Ad_usuarios.Fill(Dt_usuario)
        DataGridView2.DataSource = Dt_usuario

EL ERROR SE UBICA EN LA LINEA DE CODIGO EN "CONECTA" Cmd_usuario = New SqlCommand("select * from a_usuarios", conecta)
Me arroja el siguiente
Error 1 Un valor de tipo 'Farmacia.Datos.ConexionBD' no se puede convertir en 'System.Data.SqlClient.SqlConnection'.
ACA ESTA EL CODIGO DE LA CONEXIÓN, CODIGO EN CAPA DE DATOS.

Código:

Imports System.Data.SqlClient
Imports System.Data
Imports console = System.Console
Imports System.IndexOutOfRangeException
Imports System.Windows.Forms
Public Class ConexionBD
    Dim ConexionBDFarmacia As New SqlClient.SqlConnection
    Dim AdapatadorFarmacia As SqlDataAdapter
    Dim DT As New DataTable
    Private mINI As New Clase_ini
    'variables "server y base de datos" declarados en la clase variables:globales.vb
    Public Server As String
    Public BasedeDatos As String
    Public Sub Conectar()
        Dim sFicINI As String
        sFicINI = Application.StartupPath & "\conexion.ini"
        Dim sSeccion As String = "CONEXION"
        Dim Tcontenidos() As String
        Dim mensaje As String
        Tcontenidos = mINI.IniGetSection(sFicINI, sSeccion)
        Server = Tcontenidos(1)
        BasedeDatos = Tcontenidos(3)
        ConexionBDFarmacia.ConnectionString = "integrated security=sspi;Data Source=" & Server & ";Initial Catalog=" & BasedeDatos & ";connect timeout=5"
        Try
            ConexionBDFarmacia.Open()
            MsgBox("Base de Datos Conectado", MsgBoxStyle.Information, BasedeDatos)
        Catch ex As SqlClient.SqlException
            Select Case ex.Number
                Case 2
                    mensaje = "Servidor detenido"
                    MsgBox("Servidor detenido", MsgBoxStyle.Information)
                    Exit Sub
                Case 17142
                    mensaje = "Servidor Pausado"
                    MsgBox("Servidor pausado", MsgBoxStyle.Information)
                    Exit Sub
                Case 53
                    mensaje = "No se pudo encontrar el servidor"
                    MsgBox("Nose pudo encontrar el servidor", MsgBoxStyle.Information)
                    Exit Sub
                Case 4060
                    mensaje = "No se encontró la base de datos"
                    MsgBox("No se encontró la base de datos", MsgBoxStyle.Information)
                    Exit Sub
                Case 18456
                    mensaje = "Usuario o Clave incorrectas"
                    MsgBox("Usuario o Clave incorrectas", MsgBoxStyle.Information)
                    Exit Sub
                Case Else
                    mensaje = ex.Message
                    Exit Sub
            End Select
        End Try
    End Sub
    Public Sub Cerrar_ConexionFarmacia()
        ConexionBDFarmacia.Close()
    End Sub
    Public Sub Abrir_ConexionFarmacia()
        ConexionBDFarmacia.Open()
    End Sub

muchas GRACIAS

Hola Marco
En .NET cuando instancias un objeto, una clase o un metodo, debes asegurarte de que sean del mismo tipo.
En tu caso estas utilizando una variable llamada conecta que la declaras del tipo ConexionBD. Y ConexionBD es el nombre de una de tus clases en la capa de datos, por lo que conecta vendria a ser una clase.
Luego cuando llamas a tu SQLCommand pasas dos argumentos: El primero el string de la consulta SELECT (eso esta bien) y el segundo (que deberia ser un SQLConnection) le pases tu variable conecta. O sea, estas pasando como argumento una clase en lugar de un SQLConnection.
Como solucionarlo:
-Deja tu codigo tal como esta, solamente en la capa de datos, en la clase ConexionBD declara la variable ConexionBDFarmacia como publica. Con esto podras utilizarla desde cualquier parte del proyecto donde crees una instancia a ConexionBD.
- La instancia ConexionBD ya la tienes: Dim conecta As ConexionBD ''''1. Dejala asi.
- En el evento load de tu frm_usuarios llama al procedimiento Conectar de la clase ConexionBD antes de llamar al New SQLCommand.
- En el segundo argumento de tu SQLCommand en lugar de pasar conecta pasa ConexionBDFarmacia.
Es decir, las 2 primeros lineas de tu evento Load deben quedar asi:

Código:

Private Sub frm_usuarios_Load(sender As System.Object, e As System.EventArgs)   Handles MyBase.Load
        conecta.Conectar()       'esto abre la conexion a la BD desde la capa de datos
        Cmd_usuario = New SqlCommand("select * from a_usuarios", ConexionBDFarmacia)

Logicamente luego debes volver cerrar la conexion con la BD para que no dejes colgando recursos que ya no estas utilizando.
Suerte