Dim engine As New SqlCeEngine("Data Source = AdventureWorks.sdf")
' Specify null destination connection string for in-place compaction
'
engine.Compact(Nothing)
' Specify connection string for new database options; The following
' tokens are valid:
' - Password
' - LCID
' - Encrypt
'
' All other SqlCeConnection.ConnectionString tokens are ignored
'
engine.Compact("Data Source=; Password =a@3!7f$dQ;")