Conexion vb.net y access

Imports System.Data
Imports System.Data.OleDb

Module Module1

    Sub Main()

        'Origen de datos
        Dim ds As String = "c:\test.mdb;"
        'Cadena de conexion
        Dim stringConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
                         "Data Source=" + ds
        'Conexion
        Try
            Dim cnn As New OleDbConnection(stringConexion)
            'Se abre conexion a Access
            cnn.Open()
            Console.WriteLine(" Conectado a Access ")
            Console.ReadLine()
            Console.WriteLine(" Conexion a Access terminada." + vbCrLf + " Presione una tecla para terminar")
            Console.ReadLine()
            ' Se cierra conexion
            cnn.Close()
        Catch ex As Exception ' Si existe error
            Console.WriteLine(ex)
            Console.ReadLine()
        End Try

    End Sub

End Module

 Conectado a Access

 Conexion a Access terminada
 Presione un tecla pata terminar
 _