Apoyo sqlcommand

[MarcoArzapalo]

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

[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!!!

[erickrpv]

usa estas librerías

Imports System.Windows.Forms
Imports System.Data
Imports System.Exception
Imports MySql.Data.MySqlClient 'creo que te equivocas en esta