Conectar con Access desde VB 2008

[jestavio]

Hola Comuna, pidiendo de su valiosa ayuda, tengo mucho buscando una solución y no encuentro algo.

Quiero realizar la conexión a una BD en Access desde Visual pero me manda un error, el código que tengo es el siguiente, desde un modulo:

Código:

Public Sub conectar()
        Conexion = New ADODB.Connection
        Conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\BD Visual 2008\Prueba.mdb")
        Conexion.Open()
    End Sub

Desde el Form:

Código:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conectar()
        cmb_sem.Items.Add("Ing. en sistemas")
        cmb_sem.Items.Add("Lic. en Informática")
        cmb_sem.Items.Add("Ing. Electrónica")
        cmb_sem.Items.Add("Lic. en Contaduría")
        cmb_sem.Items.Add("Ing. Industrial")
    End Sub

Para buscar un registro tengo el siguiente código:

Código:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim numero As String
        Dim rs As ADODB.Recordset

        numero = InputBox("Digite el número de control")
        sql = "Select * from Datos where noControl='" & numero & "'"
        rs = Conexion.Execute(sql)

        If rs.BOF <> True Then
            rs.MoveFirst()
            txt_nocontrol.Text = rs.Fields(0).Value
            txt_nombre.Text = rs.Fields(1).Value
            txt_ap.Text = rs.Fields(2).Value
            txt_am.Text = rs.Fields(3).Value
            cmb_sem.Text = rs.Fields(4).Value
        Else
            MsgBox("El registro no existe")
        End If

    End Sub

Pero al mandar a buscar un registro me manda el siguiente mensaje "La operación no está permitida si el objeto está cerrado." Específicamente en esta línea:

Código:

rs = Conexion.Execute(sql)