Dim engine As SqlCeEngine = New SqlCeEngine("Data Source=Northwind.sdf;Password=;") engine.Compact("Data Source=Northwind.sdf;encryption mode=ppc2003 compatibility;Password=;")