Buenas a todos ! Soy novato en el visual basic, estoy intentando hacer una funcion o un procedimiento para poder llamar a una conexión de una base de datos desde otras clases pero me dice que
comando.Connection = leerdatos.leer "No genera ningun valor"

Tengo lo siquiente:



Public Class leerdatos

Shared Sub leer()
Dim conexion As New OleDb.OleDbConnection()
conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\basesdedatos\mibasededatos.MDB"
conexion.Open()

End Sub


Luego la llamo desde otra clase que se llama Usuarios:



Public Class Usuarios


Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim usuario As String = TextBox1.Text
Dim clave As String = TextBox2.Text


leerdatos.leer()


Dim comando As New OleDb.OleDbCommand
comando.CommandText = "select Usuario, Clave from Usuarios where Usuario = '" & usuario & "'"

comando.Connection = leerdatos.leer


He probado hacer una función tambien en vez de un Sub y me dice igual, por favor, alguien me puede ayudar!!

Muchas gracias de antemano.

Código:

Public Class UsuarioSRV
 'Valida que el USUARIO sea valido en la combinacion USERNAME & PASSWORD
 Public Function IsValid(ByVal Username As String, ByVal Password As String) As Usuario
 Dim conn As New SqlConnection
 Dim reader As SqlDataReader
 Dim previousConnectionState As ConnectionState = conn.State
 'Parte de coneccion
 Dim cmd As New SqlCommand("SELECT * FROM Usuario WHERE Username='" & Username & "' AND Password='" & Password & "'", conn)
 conn.ConnectionString = My.Settings.cnString
 Try
 If conn.State = ConnectionState.Closed Then
 conn.Open()
 End If
 reader = cmd.ExecuteReader(CommandBehavior.SingleResult)
 If reader.HasRows Then
 reader.Read()
 'comparo con clave ingresada
 If reader.GetString(reader.GetOrdinal("Password")) = Password Then
 Dim User As New Clases.Usuario
 Me.CargarDatos(User, Username)
 Return User
 Else
 Return Nothing
 End If
 reader.Close()
 Else
 'El usuario no es valido
 Return Nothing
 End If
 Catch ex As Exception
 Throw ex
 Finally
 If previousConnectionState = ConnectionState.Closed Then
 conn.Close()
 End If
 End Try
 End Function

fijate si podes ver de acuerdo a este pedazo de codigo entender como se utilizan las conexiones.

sk!

Muchas gracias, ya voy cogiendo la onda!