VB.NET2003 Mismo Codigo distinto Error

[vejin666]

Hola a todos, a ver si me podeis ayudar, ando tambien haciendo cosillas en VB.NET, y haciendo una aplicacion que accede a una BD de Access me aparecuio el siguiente Error: Conection property has not been initialized. Lo curioso del caso es que el codigo es calcado al de otro programa que si que funciona.

Os pongo el codigo:

Codigo que funciona:

Código:

Imports System.Data.OleDb

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Cadena As String = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=datos/mercado.mdb"
    Dim cn As New OleDbConnection(Cadena)
    Dim com As New OleDbCommand
    Dim datos As OleDbDataReader

#Region " Windows Form Designer generated code "

    Sub cargar1()
        Dim i As Integer
        Try
            com.CommandText = "Select * from clientes"
            If cn.State = ConnectionState.Closed Then
                cn.Open()
            End If
            datos = com.ExecuteReader

Codigo que no funciona:

Código:

Imports System.Data.OleDb

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Cadena As String = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=nose/basedatos.mdb"
    Dim cn As New OleDbConnection(Cadena)
    Dim com As New OleDbCommand
    Dim datos As OleDbDataReader

#Region " Windows Form Designer generated code "

    Sub cargar1()
        Dim i As Integer
        Try
            com.CommandText = "Select * from campos"
            cn.Open()
            datos = com.ExecuteReader

El error lo da al intentar ejecutar la linea de datos=com.ExecuteReader.

Sabeis a que pude ser debido?

Muchisimas gracias.