Dim Conn As New SqlServerCe.SqlCeConnection(strConn)
conn.open

Dim Com As New SqlServerCe.SqlCeCommand


Com.CommandText = "select * from Categorie "
Com.Connection = Conn
Dim Res As SqlServerCe.SqlCeDataReader =com.executereader(commandbehavior.closeconnection )

A me così funziona benissimo

Ciao
Antonio