Dim ConnectionString As String = ....
Dim CommandText As String = "DROP TABLE " & CStr(TableName)
 
Using conn As New SqlCeConnection(ConnectionString), _
     cmd As New SqlCeCommand(CommandText, conn)
     conn.Open()
     cmd.ExecuteNonQuery()
End Using